复制多个工作表的名称VBA

问题描述

我创建了一个“母版”工作表，其中包含来自多个工作表（Sheet1、Sheet2、Sheet3）的数据。现在我想在 B 列（在主工作表中）插入数据来自的工作表的名称。我在下面有一个例子

母版

这是我目前用于合并工作表的代码：

Sub LoopThroughSheets()

    Dim Rws As Long,Rng As Range,ws As Worksheet,sh As Worksheet,c As Range,x As Integer
    Set ws = Worksheets("Master")
    x = 1
    Application.ScreenUpdating = 0
    For Each sh In Sheets
        If sh.Name <> ws.Name Then
            With sh
                Rws = .Cells(Rows.Count,"A").End(xlUp).Row
                Set Rng = .Range(.Cells(1,"A"),.Cells(Rws,"A"))
                For Each c In Rng.Cells
                   
                    If Left(c.Value,3) = "ABC" Then
                        c.EntireRow.copy Destination:=ws.Cells(x,"A")
                        x = x + 1
                    End If
                Next c
            End With
        End If
    Next sh
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）