EXCLE vba怎么实
答案:2 悬赏:10 手机版
解决时间 2021-03-24 18:45
- 提问者网友：蓝琪梦莎
- 2021-03-23 18:28
EXCLE vba怎么实
最佳答案
- 五星知识达人网友：逐風
- 2021-03-23 19:28
Sub AA()
For n = 1 To Range("A65536").End(xlUp).Row
x = Range("G65536").End(xlUp).Row
Range("C2:C6").copy Cells(x + 1, "g")
Next
For M = 1 To Range("A65536").End(xlUp).Row * 5
y = Range("F65536").End(xlUp).Row
Range(Cells(y + 1, "F"), Cells(y + 5, "f")) = Cells(M, "a")
Next
End Sub
For n = 1 To Range("A65536").End(xlUp).Row
x = Range("G65536").End(xlUp).Row
Range("C2:C6").copy Cells(x + 1, "g")
Next
For M = 1 To Range("A65536").End(xlUp).Row * 5
y = Range("F65536").End(xlUp).Row
Range(Cells(y + 1, "F"), Cells(y + 5, "f")) = Cells(M, "a")
Next
End Sub
全部回答
- 1楼网友：北城痞子
- 2021-03-23 20:22
VBA远程教你
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯