Question

我有一个包含名称的列表，并且我记录了一个宏来帮助我复制，粘贴，格式化并移动到列表中的下一个名称。它正在工作，但是缺少一些关键的信息，因为宏不保留先前记录的数据，并且不移至列表中的下一个名称。

我运行了不同行的宏，然后尝试再次记录该宏，但是它没有按预期工作

Sub Accrual()
'
' Accrual Macro
'

'
    ActiveSheet.Range("$A$1:$G$1007").AutoFilter Field:=1, Criteria1:= _
        "doe, john"
    Range("A2").Select
    Selection.Copy
    Sheets("Sheet4").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Sheet3").Select
    Range("B2:C2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet4").Select
    Range("C2").Select
    ActiveSheet.Paste
    Range("E2").Select
    Sheets("Sheet3").Select
    Range("F2:F6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet4").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("A3").Select
End Sub

我希望录制的宏会落入名称列表，并复制，粘贴和格式化列表中的所有名称并保留所有数据

如何使录制的宏移到列表中的下一个人

0 个答案: