作者：绿色风
分类：
时间：2022-08-17
浏览：136
楼主
wise |
Q:如何把各个工作表分散的内容汇集在一起？
A：ALT+F11→插入模块→模块输入以下内容：
- Sub test()
- Dim Arr, Arr1(), i As Long, j As Long
- ReDim Arr1(2 To Sheets.Count, 1 To 11)
- '定义一个装工作表的数组，行为当前工作表数量减1，列为11列
- For i = 2 To Sheets.Count
- '从第二个工作表开始循环
- With Sheets(i)
- Arr = .Range("A5:I5")
- '把工作表的A5：I5内容赋予给数组Arr
- Arr1(i, 1) = i - 1
- '数组第一行为序号值
- Arr1(i, 2) = .Range("B2")
- '把表B2的值赋予给该行第2列，其他同理
- Arr1(i, 3) = .Range("D2")
- Arr1(i, 4) = .Range("I2")
- For j = 3 To 6
- Arr1(i, j + 2) = Arr(1, j)
- '根据Arr数组的特性，把获得相应的单元格数值
- Next j
- Arr1(i, 9) = Arr(1, 2)
- Arr1(i, 10) = Arr(1, 7)
- Arr1(i, 11) = Arr(1, 8)
- End With
- Next i
- '继续循环工作表
- Range("A2:L" & Cells(Rows.Count, 1).End(xlUp).Row - 1).ClearContents
- Range("A2").Resize(i - 2, 11) = Arr1
- End Sub
 如何把各个工作表分散的内容汇集在一起？.rar
|
2楼
い卋玑┾宝珼 |
笨笨辛苦了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一