如下参考：
1.在接下来的页面中，我们现在需要从单元格A2到A10中提取重复的数据，并将它们放在单元格E2到E10中。
2.然后用鼠标选择从E2到E10的所有内容。
3.然后在编辑字段中输入公式:=IF(COUNTIF($A$2:A2,A2)>1,A2，"")。
4.再次按CTRL+enter得到从E2到E10cell的结果，并将从A2到A10cell的重复数据提取到从E2到E10cell的对应cell。
温馨提示：内容为网友见解，仅供参考
第1个回答 2016-01-20
将多个EXCEL表格中第一行的数据统一提取到另一个表格中的步骤为：
1、在汇总表中的A列，将多个工作表的表名依次排列；
2、在B1单元格输入以下公式，然后向右向下填充公式
=OFFSET(INDIRECT($A1&"!A1"),,COLUMN(A1)-1)&""
公式表示：以A1单元格的内容作为表名引用，通过OFFSET函数将表名引用的A1单元格作为基准单元格，每向右移动一列，基准单元格向右偏移一列。从而得到A列表名工作表的所有首行数据。如果数据为空，就返回空值。
第2个回答 2013-07-30
Sub shishi()
Workbooks.Open (ActiveWorkbook.Path & "\b.xlsx")
For a = 1 To Sheets.Count
Workbooks("b.xlsx").Sheets(a).Rows(1).Copy
Workbooks("a.xlsx").Sheets(1).Range("a" & a).PasteSpecial
Next
End Sub
'这是把b的数据复制到a表。追问
Workbooks.Open (ActiveWorkbook.Path & "\b.xlsx")
For a = 1 To Sheets.Count
Workbooks("b.xlsx").Sheets(a).Rows(1).Copy
Workbooks("a.xlsx").Sheets(1).Range("a" & a).PasteSpecial
Next
End Sub
'这是把b的数据复制到a表。追问
我还没有接触过这个宏 能帮我编辑个 顺便教教我么
本回答被网友采纳第3个回答 2013-07-30
两种方式，一种写宏，另一种复制粘贴。追问
我还没有接触过这个宏 能帮我编辑个 顺便教教我么
第4个回答 2013-07-30
复制，选择性黏贴，ok本回答被提问者采纳
相似回答
