none
excel 宏程序批量执行问题 对18行录制了宏程序,如何对19-100行批量执行 RRS feed

  • 问题

  • 我在文档中18行录制了一个宏程序,想对19行至100行都执行这个宏程序,我在宏程序页面选择执行,可是宏程序只对于我录制的18行执行,请问如何对19行至100行每行都批量执行?

    附加

    宏程序源代码

    Sub 宏12()
    '
    ' 宏12 宏
    '
    ' 快捷键: Ctrl+a
    '
        Range("F18").Select
        ActiveCell.FormulaR1C1 = "=RC[2]-RC[1]+50000"
        Range("K18").Select
        Selection.Copy
        Range("M18").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        Selection.Copy
        Range("K18").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("F18").Select
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = "=RC[2]-RC[1]"
        Range("F19").Select
    End Sub

    2016年9月2日 7:45