我有两个工作簿,有些工作表具有相同的名称。我想将一些数据从Workbook TeamINSO中的工作表A导出(复制)到该工作簿(代码在其中)到具有相同名称的工作表中,我被卡住了。如何编写:在工作簿TeamINSO中的工作表之间循环,如果工作表名称等于此工作簿中的工作表名称,则复制范围?
For Each ws In TeamINSO.Worksheets
If ws.Name = ThisWorkbook.Worksheets(ws.Name) Then
Workbooks(TeamINSO).Worksheets(ws.Name).Range("A3:C400").Copy
ThisWorkbook.Worksheets(ws.Name).Range("A2").PasteSpecial xlPasteValues
Else
End If
Next ws
感谢您的帮助。
您可以这样做:
Dim ws As Worksheet, wsD as Worksheet
For Each ws In TeamINSO.Worksheets
'see if there's a match
On Error Resume Next 'ignore error if no match
Set wsD = ThisWorkbook.Sheets(ws.Name)
On Error Goto 0 'stop ignoring errors
'any match?
If Not wsD Is Nothing Then
'Transfer values
With ws.Range("A3:C400")
wsD.Range("A2").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End If
Set wsD = Nothing 'set up for next iteration if any
Next ws
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句