[已解决]帮我看看这样错在哪里

hwc2ycy

换成数组

1.     Dim arr(1 To 4, 1 To 4)
   
2.     For i = 1 To 4
   
3.         For j = 0 To 3
   
4.             arr(i, j + 1) = Controls("textbox" & i + j * 4).Text
   
5.         Next
   
6.     Next
   
7.     Sheets("sheet1").Range("a65536").End(xlUp).Offset(1).Resize(4, 4).Value = arr

复制代码

fls996

hwc2ycy 发表于 2013-10-19 16:53
再挪动下，还能少运算4步。

学习了