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

 > 

  • 问题

  • Question
    登录进行投票
    0
    登录进行投票

    我在文档中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
    |