求教贴

[0距离的遥远]

怎么把表一的数据按照从左到右，从上到下的顺序填充到表二，现在表二是我手动粘贴复制进去的

[milaoshu1020]

写好了,代码如下:

Option Explicit

Sub test()
    Dim i As Long
    For i = 1 To 100
        Dim j As Long
        For j = 1 To 13
            Sheet1.Cells(i, j) = "A" & (200 + i) & "-D" & j
        Next
    Next
End Sub

运行示例:

下载地址:
链接：https://pan.baidu.com/s/17duDjc8cA5N8S5X3B9ljpA
提取码：ynx0

[0距离的遥远]

填充到表格每一行最多24个数据