如下参考:
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。
将多个EXCEL表格中第一行的数据统一提取到另一个表格中的步骤为:
1、在汇总表中的A列,将多个工作表的表名依次排列;
2、在B1单元格输入以下公式,然后向右向下填充公式
=OFFSET(INDIRECT($A1&"!A1"),,COLUMN(A1)-1)&""
公式表示:以A1单元格的内容作为表名引用,通过OFFSET函数将表名引用的A1单元格作为基准单元格,每向右移动一列,基准单元格向右偏移一列。从而得到A列表名工作表的所有首行数据。如果数据为空,就返回空值。
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表。
两种方式,一种写宏,另一种复制粘贴。
复制,选择性黏贴,ok