求助，如何VAB 拆分这个表格

xiehua成

求助，如何VAB 拆分这个表格

xiehua成

如何把黄色区域的单元格拆分成单独的表格

3190496160

根据什么拆？如何拆？拆分后是什么样子？？？？？？？？？？？？？？？？？？？？？？？

xiehua成

3190496160 发表于 2024-10-25 14:45
根据什么拆？如何拆？拆分后是什么样子？？？？？？？？？？？？？？？？？？？？？？？

第一个表   第 1、2、3、26、27、28……列
第二个表   第 1、2、4、26、27、28……列
第三个表   第 1、2、5、26、27、28……列

xiehua成

xiehua成 发表于 2024-10-25 14:49
第一个表   第 1、2、3、26、27、28……列
第二个表   第 1、2、4、26、27、28……列
第三个表   第 1 ...

填充黄色的单元格 都是需要拆分开的  最终拆分的每一个表格里都只含有一个填充黄色的列和共同列

3190496160

Sub 拆分()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim rn As Range
Dim sh As Worksheet
For Each sh In Sheets
    If sh.Index > 1 Then
        sh.Delete
    End If
Next sh
Set sht = Sheet1
For j = 3 To 25
    mc = sht.Cells(1, j)
    sht.Copy after:=Sheets(Sheets.Count)
    With ActiveSheet
        .Name = mc
        For s = 25 To 3 Step -1
            If s <> j Then
                If rn Is Nothing Then
                    Set rn = .Columns(s)
                Else
                    Set rn = Union(rn, .Columns(s))
                End If
            End If
        Next s
        rn.Delete
    End With
    Set rn = Nothing
Next j
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

12.rar (188.21 KB, 下载次数: 1)

2024-10-25 15:23 上传

点击文件名下载附件

xiehua成

3190496160 发表于 2024-10-25 15:23

感谢大佬，怎么处理可以教教我吗？我还有好多张表要处理

3190496160

xiehua成 发表于 2024-10-25 15:30
感谢大佬，怎么处理可以教教我吗？我还有好多张表要处理

没看到2楼的代码吗？？？？？？