问宏/vba将相应的行复制到相应的工作簿中

EN

Const EMPLOYEE_NAME_COL As String = "A"
Const LAST_COL As String = "G"
Const MY_BOOK_NAME As String = "name your workbook"
Const INFO_SHEET_INDEX As Integer = 1

Function GetNewSheetAtEnd(book As Workbook) As Worksheet

    Dim sheets as Collection
    Set sheets = book.sheets

    Set GetNewSheetAtEnd = sheets.add(after:=sheets(sheets.count))

End Function

' Modify this Sub to copy however you want it to
Sub CopyRangeToSheet(rng As Range, sheet As WorkSheet)

    rng.Copy sheet.Range("A1")

End Sub

Sub CopyEmployeesToNewSheets()

    Dim info_sheet as Worksheet
    Set info_sheet = Workbooks(MY_BOOK_NAME).Sheets(INFO_SHEET_INDEX)

    Dim employees_range As Range
    ' Assumes you have a header.  You will probably need to modify this.
    Set employees_range = info_sheet.Range("A2:G" & info_sheet.UsedRange.Rows.Count)

    Dim employee_row As Range
    For Each employee_row In employees_range.Rows

        CopyRangeToSheet employee_row, GetNewSheetAtEnd()

    Next employee_row

End Sub