将整行传输到其他工作表

Question

click here for image

我正在为我的公司注册。我需要这样的脚本，如果我把聚会代码设置为“15”，那么整行应放在第15页。

Answer 1

根据您的屏幕截图。使用以下潜艇。

Sub 1：如果纸张与所有参与方名称一起存在，则使用此子颜色 -

    Public Sub AddToExistingSheet()
    Dim PartyCode As Long
        PartyCode = InputBox("Enter Party Code:", "Party code input.")

        For Each cel In Range("E3:E" & Range("E3").End(xlDown).Row)
            If cel.Value = PartyCode Then
                cel.EntireRow.Copy
            End If
        Next

        'Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = PartyCode
        Sheets("" & PartyCode & "").Activate
        Rows("3:3").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    End Sub

Sub 2：如果您需要创建带有聚会名称的工作表，请使用此子。

    Sub AddToNewSheet()
    Dim PartyCode As Long
        PartyCode = InputBox("Enter Party Code:", "Party code input.")

        For Each cel In Range("E3:E" & Range("E3").End(xlDown).Row)
            If cel.Value = PartyCode Then
                cel.EntireRow.Copy
            End If
        Next

        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = PartyCode
        Rows("3:3").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    End Sub