SSheet.Cells(i,4)="'" & TSheet.Cells(i,6)
Excel vba强制类型转换如下：Private Sub Command1_Click()Dim a As Integera = 5Print CInt(a / 3)End Sub完成。
看到问题内容,发现已经有人答了,而且是对的^.^
