求把几个工作表的最后一行列数据复制到下一行列

gzminge · 发表于 2024-10-27 09:17

请教如何集中在一个程序执行：

1，把Sheet1的A10:WK500里面，最后一行数据复制到下一行，接着把最后一列数据复制到下一列；
2，把Sheet2的A10:WK500里面，最后一行数据复制到下一行，接着把最后一列数据复制到下一列；
3，把Sheet3的A1:WS500里面，最后一行数据复制到下一行，接着把最后一列数据复制到下一列；

浮萍2.zip (203.19 KB, 下载次数: 4)

z865593849 · 发表于 2024-10-27 09:33

gzminge · 发表于 2024-10-27 10:07

z865593849 发表于 2024-10-27 09:33

gzminge · 发表于 2024-10-27 10:08

z865593849 发表于 2024-10-27 09:33

大哥好，出错了

z865593849 · 发表于 2024-10-27 10:31

我这没有问题

Qs18 · 发表于 2024-10-27 10:45

Sub qs()
a = [{"Sheet1","Sheet2","Sheet3"}]
For Each aa In a
With Sheets(aa)
rw = .UsedRange.Rows.Count
cl = .UsedRange.Columns.Count
.Rows(rw).Copy .Cells(rw + 1, 1)
.Columns(cl).Copy .Cells(1, cl + 1)
End With
Next
End Sub

复制代码

Qs18 · 发表于 2024-10-27 10:46

试试............

Qs18 · 发表于 2024-10-27 10:47

试试.........

		自动登录	找回密码
密码			免费注册

[求助] 求把几个工作表的最后一行列数据复制到下一行列

评分

评分