求助!!多表同一列数据按先后在新表排成一列并联动

半世

代码确实方便不过本人不会用,通过辅助列用公式解决了

新手路上

按住alt+f11，打开vbe，左上角，有个写着Project（问题表.xlsx），右键，插入模块，输入以下代码，点击格式下面有个三角形的就可以了。

1. Sub copy()
   
2.     Sheet4.Range("a9:a1048576").ClearContents
   
3.     Dim rng As Range, i%
   
4.     For Each sht In Worksheets
   
5.         If sht.Name <> "汇总" Then
   
6.             i = sht.Range("a1048576").End(3).Row
   
7.             Set rng = Sheet4.Range("a1048576").End(3).Offset(1, 0)
   
8.             sht.Range("a2:a" & i).copy rng
   
9.         End If
   
10.     Next
    
11. End Sub

复制代码

半世

新手路上 发表于 2019-2-16 13:32
按住alt+f11，打开vbe，左上角，有个写着Project（问题表.xlsx），右键，插入模块，输入以下代码，点击格式 ...

你好,能用公式吗,代码是一窍不通啊,想修改都不知道从哪下手,这问题表就是个例子

新手路上

半世 发表于 2019-2-16 13:43
你好,能用公式吗,代码是一窍不通啊,想修改都不知道从哪下手,这问题表就是个例子

就按照我说的那个做，你不会吗？用vba省时省力啊

半世

新手路上 发表于 2019-2-16 14:03
就按照我说的那个做，你不会吗？用vba省时省力啊

我怎么拿到我自己的表上用呢,看不明白啊

新手路上

问题表1111.rar (19.57 KB, 下载次数: 7)

2019-2-16 18:18 上传

点击文件名下载附件

micch

模拟数据不要太简陋了，稍微费点功夫把数据模拟好，有助于解决问题。