如何自动将EXCEL中不同工作薄相同位置的数据提取至新工作薄中？
图1
图2
图3
一张表有很多工作薄，命名不规则，现需要新建一张工作薄，图3所示，自动将每张工作薄的设计号和图2中的金额提取至新工作薄中，如何实现？PS：设计号和金额均为合并单元格
ä½ è¯´åäºå§ãæ¯ä¸å¼ å·¥ä½ç°¿éé¢çå¾å¤å·¥ä½è¡¨å§ï¼
å¾3çé£ä¸ªè¡¨ï¼æ¾å¨é¦ä½ï¼å³é®å·¥ä½è¡¨æ ç¾--æ¥ç代ç --æä¸é¢ä»£ç å¤å¶è¿å»ï¼ALT+F8 æ§è¡å³å¯~
SUB AA()
FOR I=2 To worksheets.count
x=sheets(1).[a65536].end(3).row
sheets(1).cells(x,1)=sheets(i).[b3]
sheets(1).cells(x,2)=sheets(i).[m1]
next
END SUB追é®
å¾3çé£ä¸ªè¡¨ï¼æ¾å¨é¦ä½ï¼å³é®å·¥ä½è¡¨æ ç¾--æ¥ç代ç --æä¸é¢ä»£ç å¤å¶è¿å»ï¼ALT+F8 æ§è¡å³å¯~
SUB AA()
FOR I=2 To worksheets.count
x=sheets(1).[a65536].end(3).row
sheets(1).cells(x,1)=sheets(i).[b3]
sheets(1).cells(x,2)=sheets(i).[m1]
next
END SUB追é®
æä½ è¯´çå¼äºï¼æ²¡ååºå
追çæè¡¨æ ¼ä¼ è¿æ¥ï¼815850733
温馨提示：内容为网友见解，仅供参考
第1个回答 2012-12-30
“追问 按你说的弄了，没反应啊”
“余余1892”说的是使用VBA。如果你在VBA中输入好程序以后，不能运行则可能你的EXCEL没有装全。
“余余1892”说的是使用VBA。如果你在VBA中输入好程序以后，不能运行则可能你的EXCEL没有装全。
第2个回答 2012-12-30
工作表名称用sheet1 sheet2这种，不要用你自己命名的表名
第3个回答 2012-12-30
把表发给我看看追问
怎么发你？
相似回答
