如何实现excel中sheet表自动汇总

WZP4561 · 发表于 2024-7-5 09:34

本帖最后由 WZP4561 于 2024-7-5 12:17 编辑

请各路大神指教，谢谢！如何实现excel中sheet表自动汇总！！！

Peny2020 · 发表于 2024-7-5 09:56

附件文件损坏打不开了

WZP4561 · 发表于 2024-7-5 12:18

Peny2020 发表于 2024-7-5 09:56
附件文件损坏打不开了

进行了更新，谢谢指教！

Peny2020 · 发表于 2024-7-5 14:29

试试看是不是这样

WZP4561 · 发表于 2024-7-5 15:12

Peny2020 发表于 2024-7-5 14:29
试试看是不是这样

太给力了！是用VB做的吧？若我只合并其中的2-3个特定的sheet，要如何修改？

沈默00 · 发表于 2024-7-5 15:24

WZP4561 发表于 2024-7-5 15:12
太给力了！是用VB做的吧？若我只合并其中的2-3个特定的sheet，要如何修改？

把指定的工作表做个array集合，在array内部循环就可以了

Peny2020 · 发表于 2024-7-5 15:26

WZP4561 发表于 2024-7-5 15:12
太给力了！是用VB做的吧？若我只合并其中的2-3个特定的sheet，要如何修改？

这段意思是除了名称为kanggatang和汇总表的其它表格进行合并。
如果你要指定其中几个，你就把sh=“指定名称"

WZP4561 · 发表于 2024-7-5 16:21

沈默00 发表于 2024-7-5 15:24
把指定的工作表做个array集合，在array内部循环就可以了

请指教，谢谢1

沈默00 · 发表于 2024-7-5 16:34

这样就只能"A工厂"，“C工厂”两个表进行处理，
指定的工作表，可以自行更改，，

Peny2020 · 发表于 2024-7-5 17:05

WZP4561 发表于 2024-7-5 16:21
请指教，谢谢1

Sub test()
Dim sheetNames, ar, i&, br(1 To 9999, 1 To 24), n&, k&
Dim abc As String

abc = ChrW(27719) & ChrW(24635) & ChrW(34920)
sheetNames = Array("B", "C")
For k = LBound(sheetNames) To UBound(sheetNames)
Set sh = ThisWorkbook.Sheets(sheetNames(k))
      r = sh.Range("B" & Rows.Count).End(xlUp).Row
      ar = sh.Range("a1:x" & r)
      For i = 20 To r
         If ar(i, 2) <> "" Then
            n = n + 1
            For j = 1 To 24
                  br(n, j) = ar(i, j)
            Next
         End If
      Next

Next
With Sheets(abc)
.[a4].Resize(n, 24) = br
MaxRow = .Range("A3").End(xlDown).Row
.Range("a4:x" & MaxRow).Borders.LineStyle = 1
End With
End Sub

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

[求助] 如何实现excel中sheet表自动汇总

评分

评分