合并sheet代码如何修订

WZP4561 · 发表于 2024-12-24 13:06

wcj6376tcp 发表于 2024-12-24 12:01
人家if不是给你判断筛选了吗？你自己修改一下啊 if sh.name like "*工厂" then

后面名字不一定是“工厂”，可能是其它，如大众，丰田，长城.....

WZP4561 · 发表于 2024-12-24 13:15

ykcbf1100 发表于 2024-12-24 11:57
参与一下。。。

非常感谢，但是为sheet的命名，不一定是“*厂”，可能是各主机厂的名字，如大众，丰田，长安....

ykcbf1100 · 发表于 2024-12-24 14:01

WZP4561 发表于 2024-12-24 13:15
非常感谢，但是为sheet的命名，不一定是“*厂”，可能是各主机厂的名字，如大众，丰田，长安....

If InStr("Kangatang|汇总表", sh.Name) = 0 Then

这句改一下就行。

3190496160 · 发表于 2024-12-24 17:12

Sub test()
Dim ar, sh As Worksheet, i&, br(1 To 9999, 1 To 24), n&
Dim abc As String
Dim rn As Range
abc = ChrW(27719) & ChrW(24635) & ChrW(34920)
For Each sh In Sheets
If sh.Index > Sheets("汇总表").Index Then
      r = sh.Range("B" & Rows.Count).End(xlUp).Row
      Set rn = sh.Range("a1:x" & r).Find("序号", , , , , , 1)
      ks = rn.Row + 1
      ar = sh.Range("a1:x" & r)
      For i = ks 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
End If
Next
With Sheets(abc)
.UsedRange.Offset(3).Borders.LineStyle = 0
.UsedRange.Offset(3) = Empty
.[a4].Resize(n, 24) = br
.Range("a4:x" & n + 3).Borders.LineStyle = 1
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-12-24 17:13

多表合并11.rar (43.98 KB, 下载次数: 4)

3190496160 · 发表于 2024-12-24 17:14

WZP4561 发表于 2024-12-24 11:38
好的，另我想在“汇总表”前的sheet不纳入汇总，后面的纳入汇总，如图。代码又如何实现，能否传递个附件 ...

让你抄写代码，目的就是让你学习代码呀

WZP4561 · 发表于 2024-12-24 17:24

3190496160 发表于 2024-12-24 17:14
让你抄写代码，目的就是让你学习代码呀

嗯嗯，向大侠学习

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