Question

我有一个Excel，其中工作表1包含10万行数据。在那里，有字符串“ ABC”和“ DEF”。我想单独复制这些内容，然后将其粘贴到工作表名称为ABC和DEF的其他工作表中。

显然，字符串和工作表名称相同。所以我想复制包含提到的字符串的数据并将其粘贴到相应的工作表中。

如果您有任何公式或VBA代码，请发表评论。

Answer 1

修改-如果需要-并尝试：

Option Explicit

Sub test()

    Dim Lastrow1 As Long, LAstrow2 As Long, i As Long
    Dim SheetName As String
    Dim ws As Worksheet

    'Let us assume that all data appears in Sheet 1 & Column A
    'Find the Last row, column A & Sheet 1
    Lastrow1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

    For i = 1 To Lastrow1
        SheetName = Left(Sheet1.Range("A" & i).Value,3)

        Set ws = ThisWorkbook.Worksheets(SheetName)

        Lastrow1 = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

        Sheet1.Range("A" & i).Copy ws.Range("A" & Lastrow1 + 1)

    Next i

End Sub

如何将包含特定字符串的数据从工作表1复制和粘贴到工作表2

1 个答案: