根据单元格值将多行复制到另一个不同的工作表

Question

我有150多个类别，并在excel上输入数据 现在，我需要您的帮助。 如果我在“列A”上输入任何类别，则excel应该检查是否有工作表为该类别命名。如果是，则应将整个行复制到该工作表的下一个空行，如果找不到该工作表，则应创建一个命名该类别的工作表，然后将整个行复制到该新创建的工作表的下一个空行。可能吗？ 预先感谢您一百万。 我使用此代码将整行复制到另一个工作表，是否有任何方法可以对其进行更新，使其符合我的要求？

Sub CopyRowBasedOnCellValue()
   Dim xRg As Range
    Dim xCell As Range
    Dim A As Long
    Dim B As Long
    Dim C As Long
    A = Worksheets("Sheet1").UsedRange.Rows.Count
    B = Worksheets("Sheet2").UsedRange.Rows.Count
    If B = 1 Then
    If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then B = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & A)
    On Error Resume Next
    Application.ScreenUpdating = False
    For C = 1 To xRg.Count
        If CStr(xRg(C).Value) = "Done" Then
            xRg(C).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & B + 1)
            B = B + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub