请大师修改个VBA公式，改成每行六码，28行。

楼主

sjzdj2018 | 发表于2018-09-30 07:49:20

Dim arr, arrQ, C, arrT(1 To 24, 1 To 10)
C = 42
arr = Range("d5").Resize(200, 33): arrQ = Range("b5").Resize(200, 1)
For u = 1 To 200
For i = 1 To 24
For k = 1 To 10
m = m + 1
arrT(i, k) = arr(u, m)
Next
m = m - 9
Next
m = 0
C = IIf(u = 1, C, C + 11)
Cells(3, C) = arrQ(u, 1)
Cells(5, C).Resize(24, 10) = arrT
Next
MsgBox "完成", 64, "提示:"
End Sub

1楼

aails | 发表于2018-10-02 09:12:24

源表呢？

2楼

urxajqtsnd | 发表于2018-11-15 15:58:12

Cells(5, C).Resize(24, 10) = arrT

共3条1页 30条/页首页上一页第1页下一页尾页

参与原帖交流，请访问:

http://bbs.17500.cn/thread-6605698-1-1.html