[已解决]跨表同列汇总

Aotenjo168

表1表2表3表4的A列内容，按表1234顺序取值汇总到表5的A列。5的A列是希望的结果

表格.rar (8.67 KB, 下载次数: 28)

2021-9-16 13:13 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-9-16 17:19

Aotenjo168 发表于 2021-9-16 14:57
大师，很强大。
表1 表2 表3 表4是为了提问举例的简单叫法，如果这些工作表它们有各自名称呢？比如华南 ...

跳转到最佳答案楼层

lisongmei

Sub sdf()
Dim i, x As Integer
For i = 1 To Sheets.Count - 1
    If Sheets(Sheets.Count).Range("a1") = "" Then
        x = 1
    Else
        x = Sheets(Sheets.Count).Range("a10000").End(xlUp).Row + 1
    End If
    Sheets(i).Range("a1:a" & Sheets(i).Range("a1").End(xlDown).Row).Copy Sheets(Sheets.Count).Range("a" & x)
Next
End Sub

Aotenjo168

lisongmei 发表于 2021-9-16 14:15
Sub sdf()
Dim i, x As Integer
For i = 1 To Sheets.Count - 1

谢谢，非VBA，普通代码不行吗？

lisongmei

Aotenjo168 发表于 2021-9-16 14:22
谢谢，非VBA，普通代码不行吗？

那你等其他回复吧，我想不到有能以这种方式汇总的公式

Aotenjo168

lisongmei 发表于 2021-9-16 14:34
那你等其他回复吧，我想不到有能以这种方式汇总的公式

感谢。
表1A列有就表1A列，空格了就表2A列，以次类推，出乎意料的难，

cutecpu

=IFERROR(INDIRECT(TEXT(SMALL(IF(COUNTIF(OFFSET(INDIRECT("表"&{1;2;3;4}&"!A1"),COLUMN(A:Z)-1,),"*"),{1;2;3;4}/1%+COLUMN(A:Z)),ROW(A1)),"表0!!!r00!c1"),),"")

※數組公式，請記得按Ctrl+Shift+Enter

祝順心，南無阿彌陀佛！

Aotenjo168

cutecpu 发表于 2021-9-16 14:50
=IFERROR(INDIRECT(TEXT(SMALL(IF(COUNTIF(OFFSET(INDIRECT("表"&{1;2;3;4}&"!A1"),COLUMN(A:Z)-1,),"*"),{ ...

大师，很强大。
表1 表2 表3 表4是为了提问举例的简单叫法，如果这些工作表它们有各自名称呢？比如华南市场，东北方面等等，代码又该如何。

cutecpu

Aotenjo168 发表于 2021-9-16 14:57
大师，很强大。
表1 表2 表3 表4是为了提问举例的简单叫法，如果这些工作表它们有各自名称呢？比如华南 ...

cutecpu

Aotenjo168 发表于 2021-9-16 14:57
大师，很强大。
表1 表2 表3 表4是为了提问举例的简单叫法，如果这些工作表它们有各自名称呢？比如华南 ...

新增 B 列方法：让前半段(取表名称), 跟后半段(取行数)的公式一致

Aotenjo168

我发现，许多看似简单的问题，其实都是大问题，就像这个帖子的问题，就是几个相同内容列的不同表格的依次汇总为一个表格，怎么说都是一个很基础的使用要求，要实现它却是这样的复杂。可能这种以后简单化，还需靠Excel本身新增函数支持。