- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]合并工作表，VBA问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140099)
-- 发布时间：2019/8/29 13:04:00
-- [求助]合并工作表，VBA问题
有工作簿中有N个工作表，要将工作表中一定数据区域的数据合并至一张新表。
以下是VBA代码，运行到红字行后出错如下图：
此主题相关图片如下：sharedscreenshot1.jpg
Sub 合并当前工作簿下的所有工作表()
Dim arr As Variant, erow&, r&, c&, sht As Worksheet
r = 14 \'数据区域表头所在行号
c = 7 \'数据区域表头包含列数
Application.ScreenUpdating = False
Set sht = Sheets.Add(Type:=xlWorksheet) \'生成一个新表(空合并表)
Sheets(sht.Index).Move before:=Sheets(1) \'将此表移动到第一个
For j = 2 To Worksheets.Count
arr = Sheets(j).Range(Sheets(j).Cells(r + 1, 1), Sheets(j).Cells(65536, 1).End(xlUp).Offset(0, c - 1)) \'将数据区域中的记录保存到数组arr中
sht.Cells(erow, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr \'将数组的值写入到合并表中
Next j
With Range("A1").CurrentRegion.Font \'汇总完成后，批量设置工作表的字体格式
.Name = "微软雅黑"
.Size = 11
.Color = RGB(0, 0, 0)
End With
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub
-----------------------------------------------------------
请教各位大神，错误在哪？
[此贴子已经被作者于2019/8/29 13:05:22编辑过]
-- 发布时间：2019/8/29 14:09:00
--
vba不懂，请到Execl相关论坛提问