EXCEL2007宏

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

需要excel2007所有宏，希望好心人能发一份给我，不胜感激啊！！！如果实在没有，发数据分析的也行。邮箱xiao-long3@163.com

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：excel2007 EXCEL exce xcel cel 不胜感激 好心人 邮箱

excel2007宏

实例：通过宏来实现选取多张Excel文件中的固定列的字段合成到一个新的Excel文件中。
比如现在又excel1到excel5，5个文件，我需要分别提取这5个文件中的产品型号以及零售价格还有采购人员姓名等数据(假设这些数据都分别存放在A到C列中，而且5个文件的字段的排列顺序相同)，我需要新建一个excel6文件，将excel1到excel5中所有需要的数据整合到excel6文件文件中。 假如excel1-excel6的文件存在D盘根目录下。

一、可以的，很简单。
1，在EXCEL6中，A,B,C三列做好列头，注明型号，售价，姓名。
2，在EXCEL6中的A列第一行，输入等号，
然后用鼠标点你的EXCEL1，当前显示即为EXCEL，然后鼠标点击你要提取的数据所在单元格，然后按回车就可以啦！
这里你的EXCEL6中的A2单元格的公式为=EXCEL1!A2
也就是把表6中的A2单元与表1中的A2单元格内容对等起来！
3，B/C列的操作方法相同，然后选好A1~C1，公式直接拖下来就可以了！

二、如果要用宏来解决的话，编制如下的代码：
Sub Main()
Dim L(5)
K = Workbooks("excel6.xls").Sheets(1).UsedRange.Rows.Count
For i = 1 To 5
    L(i) = Workbooks("excel" & i & ".xls").Sheets(1).UsedRange.Rows.Count - 1
   For m = 1 To L(i)
       For j = 1 To 3
           Workbooks("excel6.xls").Sheets(1).Cells(m + K, j).Value = Workbooks("excel" & i & ".xls").Sheets(1).Cells(m + 1, j).Value
       Next j
   Next m
   K = K + m - 1
Next i
End Sub