如何EXCEL中将所有分表中内容整合到总表中,其中每个分表与总表第一列都有相同项?
简单举例:总表sheet1分表1sheet2分表2sheet3分表3sheet4整合后返回总表sheet1A列B列ABABABAB1一一跪二求三高一跪2二四手七手五高二求...
简单举例:
总表sheet1 分表1sheet2 分表2sheet3 分表3sheet4 整合后返回总表sheet1
A列 B列 A B A B A B A B
1 一 一 跪 二 求 三 高 一 跪
2 二 四 手 七 手 五 高 二 求
3 三 六 高 三 高
4 四 四 手
5 五 五 高
6 六 六 高
7 七 七 手
有没有亲给个简单可行的方案,详细讲解下啊,小白在线等 展开
总表sheet1 分表1sheet2 分表2sheet3 分表3sheet4 整合后返回总表sheet1
A列 B列 A B A B A B A B
1 一 一 跪 二 求 三 高 一 跪
2 二 四 手 七 手 五 高 二 求
3 三 六 高 三 高
4 四 四 手
5 五 五 高
6 六 六 高
7 七 七 手
有没有亲给个简单可行的方案,详细讲解下啊,小白在线等 展开
展开全部
此题完全有解:在总表B1输入=IFERROR(INDEX(Sheet2!$A:$B,MATCH($A1,Sheet2!$A:$A,0),2),IFERROR(INDEX(Sheet3!$A:$B,MATCH($A1,Sheet3!$A:$A,0),2),IFERROR(INDEX(Sheet4!$A:$B,MATCH($A1,Sheet4!$A:$A,0),2),""))),下拉填充即可。总表显示如下:
一 跪
二 求
三 高
四 手
五 高
六 高
七 手
意思是先在表2查找总表A1的值,成立则返回表2的B1,否则要在表3按同规则查找,成立返回表3的B1……依此类推 ,最后找不到则返回空。
一 跪
二 求
三 高
四 手
五 高
六 高
七 手
意思是先在表2查找总表A1的值,成立则返回表2的B1,否则要在表3按同规则查找,成立返回表3的B1……依此类推 ,最后找不到则返回空。
展开全部
(哇塞,这个用公式比较难,用VBA还可以! )
今天我有时间啦,帮你解决这个难题,步骤如下:
在工作表界面作如下操作:
按Alt+F11->打开vixual basic编辑器
在打开的vixual basic编辑器窗口作如下操作:
标题栏->视图->工程资源管理器(单击打开)
双击sheet1
右边出现一大片空白区域
将下述代码复制->粘贴进去:
Sub QQ()
Dim i As Integer, a As Integer, b As Integer
For i = 1 To 1000 Step 1
If Sheet1.Cells(i, 1) = "" And Sheet1.Cells(i + 1, 1) = "" Then Exit For
For a = 2 To 4 Step 1
For b = 1 To 500 Step 1
If Worksheets("sheet" & a).Cells(b, 1) = "" And Worksheets("sheet" & a).Cells(b + 1, 1) = "" Then Exit For
If Sheet1.Cells(i, 1) = Worksheets("sheet" & a).Cells(b, 1) Then
Sheet1.Cells(i, 2) = Worksheets("sheet" & a).Cells(b, 2)
End If
Next b
Next a
Next i
End Sub
'运行即可
'注意你的工作表名称必须是"sheet1"、"sheet2"、"sheet3"、"sheet4"
今天我有时间啦,帮你解决这个难题,步骤如下:
在工作表界面作如下操作:
按Alt+F11->打开vixual basic编辑器
在打开的vixual basic编辑器窗口作如下操作:
标题栏->视图->工程资源管理器(单击打开)
双击sheet1
右边出现一大片空白区域
将下述代码复制->粘贴进去:
Sub QQ()
Dim i As Integer, a As Integer, b As Integer
For i = 1 To 1000 Step 1
If Sheet1.Cells(i, 1) = "" And Sheet1.Cells(i + 1, 1) = "" Then Exit For
For a = 2 To 4 Step 1
For b = 1 To 500 Step 1
If Worksheets("sheet" & a).Cells(b, 1) = "" And Worksheets("sheet" & a).Cells(b + 1, 1) = "" Then Exit For
If Sheet1.Cells(i, 1) = Worksheets("sheet" & a).Cells(b, 1) Then
Sheet1.Cells(i, 2) = Worksheets("sheet" & a).Cells(b, 2)
End If
Next b
Next a
Next i
End Sub
'运行即可
'注意你的工作表名称必须是"sheet1"、"sheet2"、"sheet3"、"sheet4"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
建议楼主用透视表的多层合并计算功能最快
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=IF(ISERROR(VLOOKUP(A1,分表1Sheet2!A:B,2,FALSE)),IF(ISERROR(VLOOKUP(A1,分表2Sheet3!A:B,2,FALSE)),IF(ISERROR(VLOOKUP(A1,分表3Sheet4!A:B,2,FALSE)),"",VLOOKUP(A1,分表3Sheet4!A:B,2,FALSE)),VLOOKUP(A1,分表2Sheet3!A:B,2,FALSE)),VLOOKUP(A1,分表1Sheet2!A:B,2,FALSE))
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
使用VLOOKUP
=IF(ISERROR(VLOOKUP(A3,Sheet4!$A$1:$B$9,2,0)),"",VLOOKUP(A3,Sheet4!$A$1:$B$9,2,0))&IF(ISERROR(VLOOKUP(A3,Sheet2!$A$1:$B$9,2,0)),"",VLOOKUP(A3,Sheet2!$A$1:$B$9,2,0))&IF(ISERROR(VLOOKUP(A3,Sheet3!$A$1:$B$9,2,0)),"",VLOOKUP(A3,Sheet3!$A$1:$B$9,2,0))
=IF(ISERROR(VLOOKUP(A3,Sheet4!$A$1:$B$9,2,0)),"",VLOOKUP(A3,Sheet4!$A$1:$B$9,2,0))&IF(ISERROR(VLOOKUP(A3,Sheet2!$A$1:$B$9,2,0)),"",VLOOKUP(A3,Sheet2!$A$1:$B$9,2,0))&IF(ISERROR(VLOOKUP(A3,Sheet3!$A$1:$B$9,2,0)),"",VLOOKUP(A3,Sheet3!$A$1:$B$9,2,0))
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询