Office中国论坛/Access中国论坛

标题: 非常紧急！！请高手帮忙.. [打印本页]

作者: b121 时间: 2009-10-25 17:25
标题: 非常紧急！！请高手帮忙..
本帖最后由 b121 于 2009-10-25 17:27 编辑

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

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

作者: pureshadow 时间: 2009-10-26 15:40
仅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 时间: 2009-10-28 09:11
非常感谢~
终于有人帮忙了，谢谢

作者: b121 时间: 2009-10-28 09:19
还有个判断取值是否为空，
如果为空就跳到下张表的第一道工序取数据，不为空则继续。。

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

还请指点

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)