[已解决]用宏合并工作表

小小学生 · 发表于 2010-7-15 16:19

L7lgE8oj.rar (16.71 KB, 下载次数: 34)

wayy · 发表于 2010-7-15 16:24

行与列的区别。

小小学生 · 发表于 2010-7-15 16:38

请帮忙修改宏。

wayy · 发表于 2010-7-15 17:18

Sub wayy()
Dim mcol As Long
Dim i As Long
Dim arr
Columns("B:II").ClearContents
Application.ScreenUpdating = False
For i = 1 To Sheets.Count - 1
Sheets(i).Select
arr = Range("B2:D13").Value
With Sheet2
    mcol = .[iv3].End(xlToLeft).Column + 1
    .Cells(3, mcol).Resize(12, 3) = arr
    Range(.Cells(2, mcol), .Cells(2, mcol + 2)) = Sheets(i).Name
   End With
Next
Sheet2.Select
Application.ScreenUpdating = True
End Sub

小小学生 · 发表于 2010-7-15 17:58

谢谢wayy版主，但是A栏资料怎么不会自动跑出来。

wayy · 发表于 2010-7-16 08:57

O8mEPFLQ.rar (16.95 KB, 下载次数: 140)

wayy · 发表于 2010-7-16 08:59

再看一下吧，想用的时候多注意学习一下．

不要直接等饭来张口．

深恋一生之水 · 发表于 2010-7-16 17:14

提示: 作者被禁止或删除内容自动屏蔽

zsstephen · 发表于 2012-8-6 12:17

学习，好东西，正用得着

月步 · 发表于 2014-1-12 11:26

学习学习
就怕弄不出来呢

		自动登录	找回密码
密码			注册

深恋一生之水深恋一生之水当前离线积分 3 IP卡狗仔卡	发表于 2010-7-16 17:14 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
深恋一生之水深恋一生之水当前离线积分 3 IP卡狗仔卡
	回复使用道具举报显身卡