合并问题求助

jn120711

贴在下面的是我搜到的一个合并所有工作表的代码，很好用。不过想改一下，把范围限制在部分工作表。比如有一个工作簿，里面有十几个表，只想合并其中的sheet5、sheet7-sheet10的数据，请教应该如何改，谢谢。
Sub bz()
      Dim sht As Worksheet, ar
      Application.ScreenUpdating = False
      [a2:g500].ClearContents
      For Each sht In Sheets
           If sht.Name <> ActiveSheet.Name Then
                ar = sht.UsedRange.Offset(1, 0)
                Range("A65536").End(3).Offset(1, 0).Resize(UBound(ar), UBound(ar, 2)) = ar
           End If
     Next
    Application.ScreenUpdating = True
End Sub

蓝桥玄霜

把其中的sheet5、sheet7-sheet10的名称放入字典，然后把If sht.Name <> ActiveSheet.Name Then改为
If d.exists(sht.name) then

excelvlookup

Sub bz()
      Dim sht As Worksheet, ar
      Application.ScreenUpdating = False
      [a2:g500].ClearContents
      redim br(,"Sheet5","Sheet7","Sheet10")
      For i=1 to ubound(br)
               
                ar = sheets(br(i)).UsedRange.Offset(1, 0)
                Range("A65536").End(3).Offset(1, 0).Resize(UBound(ar), UBound(ar, 2)) = ar

     Next
    Application.ScreenUpdating = True
End Sub
if就不要了，建一个数组br,装入要写入的工作表的name

ykcbf1100

For Each sht In Sheets(Array("sheet5","sheet7","Sheet8","Sheet9","sheet10"))

jn120711

谢谢楼上二位

cidanji

For Each ws In Array(Sheet1, Sheet2, Sheet3)

jn120711

cidanji 发表于 2024-1-4 16:42
For Each ws In Array(Sheet1, Sheet2, Sheet3)

For Each ws In Array(Sheet1, Sheet2, Sheet3)
谢谢