Sub shu1()
t1 = Sheet1.Cells(1, 1)
MsgBox t1
End Sub
或
Sub shu2()
t2 = Sheet1.Range("A1")
MsgBox t2
End Sub
你要先对i、j赋值：
i=1
j=1
t1 = Cells(i,j)
Sub test()
t1 = Sheet1.Cells(1, 1)
t2 = Sheet1.Range("A1")
Debug.Print "t1, t2 = ", t1, t2
End Sub
i 与 i1 是两个不同的变量
请试试 t1 = Cells(i - 1, j + k - 1)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024