求教贴

Question

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

Answer 1

写好了,代码如下:Option ExplicitSub 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