vba循环赋值

Question

U1应该是一个列向量，有3250个元素，最后一句编译时有问题，可能是'Cells()'和‘U1(3100:3249)’这里有问题，求指点Dim U1() As Double
ret = SapModel.Results.JointDispl("2", ObjectElm, NumberResults, Obj, Elm, LoadCase, StepType, StepNum, U1, U2, U3, R1, R2, R3)
Sheet7.Cells(1+150*((i-1)+iT0*(j-1)+iT0*ia0*(k-1)):150+150*((i-1)+iT0*(j-1)+iT0*ia0*(k-1)),i).Value = Application.WorksheetFunction.Transpose(U1(3100:3249))我是想把每次循环后数组U1的第3100到3249个元素赋到Sheet7的第1+150*((i-1)+iT0*(j-1)+iT0*ia0*(k-1))到150+150*((i-1)+iT0*(j-1)+iT0*ia0*(k-1))，第i列里面，请问该怎么表达啊，对vba不太熟，表达的有问题，求指点

Answer 1

Dim sAddress As String
Dim U1Sub() As Double
'你需要把 U1 的子集复制到单独一个数组 U1Sub 中'
sAddress = Sheet7.Cells(1 + 150 * ((i - 1) + iT0 * (j - 1) + iT0 * ia0 * (k - 1)), i).Address
sAddress = sAddress & ":" & Sheet7.Cells(150 + 150 * ((i - 1) + iT0 * (j - 1) + iT0 * ia0 * (k - 1)), i).Address
Sheet7.Range(sAddress).Value = Application.WorksheetFunction.Transpose(U1Sub)