如何解决复制多个工作表的名称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 举报,一经查实,本站将立刻删除。