非常紧急！！请高手帮忙..

b121

需要把 sheet4 中的各项数据，按顺序自动复制到 sheet1 表中.
如: 表中 各项
以后自动添加sheet4表中内容，自动就复制到 sheet1表中

谢了，第一次接触excel 的VBA。。实在没有办法了。

pureshadow

仅F列的，其他类推：
Sub test()
Dim MyRow As Long
Dim i As Long, x As Long
    MyRow = Sheets("sheet1").Range("f65536").End(xlUp).Row + 1
For x = 1 To 6 Step 2
    For i = 4 To 20
        Sheets("sheet1").Cells(MyRow, 6) = Sheets("sheet4").Cells(i + (x - 1) * 10, 2)
    MyRow = MyRow + 1
    Next
Next
End Sub

b121

非常感谢~
终于有人帮忙了，谢谢

b121

还有个判断取值是否为空，
如果为空就跳到下张表的第一道工序取数据，不为空则继续。。

If e <> "" Then                                    '不知道判断为空用""还是应该用 null
                g = "e" & f
                Me.Range(g).Value = e
                f = f + 1
                Else
                GoTo z:                                '直接跳出内循环不知道该怎么写，具然用了GOTO。。。自己也很迷茫
            End If

还请指点