参照如下：
总表取分表对应值
在B2单元格中输入公式：
=vlookup(a2,indirect(left(b$1,len(b$1)-2)&"!a:b"),2,)
下拉填充
如图：
温馨提示：答案为网友推荐，仅供参考
第1个回答 2021-02-18
可以借用 SUM和indirect函数，我录了个视频，一会儿传上来，当然，你还可以借用SUMIFS多条件求和来完成
第2个回答 2021-02-18
用vba可以实现，以下代码供参考。
Sub hbb()
Dim i, zjl, bjl As Integer
Dim str As String
Dim lines_title As Integer
lines_title = 2 '此行数值表示标题行的数量，此问题中为2行
Sheet1.Range("B" & lines_title).Value = "占位填充"
For i = 2 To Sheets.Count
zjl = Sheet1.Range("b65536").End(xlUp).Row
bjl = Sheets(i).Range("a65536").End(xlUp).Row
Sheets(i).Range("a" & lines_title + 1 & ":P" & bjl).Copy Sheet1.Range("b" & zjl + 1)
Next
'复制表格标题行
Sheets(2).Range("A1:D" & lines_title).Copy Sheet1.Range("A1:D1")
End Sub
Sub hbb()
Dim i, zjl, bjl As Integer
Dim str As String
Dim lines_title As Integer
lines_title = 2 '此行数值表示标题行的数量，此问题中为2行
Sheet1.Range("B" & lines_title).Value = "占位填充"
For i = 2 To Sheets.Count
zjl = Sheet1.Range("b65536").End(xlUp).Row
bjl = Sheets(i).Range("a65536").End(xlUp).Row
Sheets(i).Range("a" & lines_title + 1 & ":P" & bjl).Copy Sheet1.Range("b" & zjl + 1)
Next
'复制表格标题行
Sheets(2).Range("A1:D" & lines_title).Copy Sheet1.Range("A1:D1")
End Sub
第3个回答 2021-02-18
加辅助列轻松解决，把问题作为内容（游舰主题一定要包含“excel”,本人以此为依据辨别非垃圾游舰，以免误删）,excel样表文件（尽量详细说明现状和目标效果）作为附件发到一流3油香：yqch134帮你看下
相似回答