Sub 脚本生成()
'
' 脚本生成 Macro
'

'
    Application.ScreenUpdating = False
    Sheets("1X邻区").Select
    Range("D3:D999").Select
    Selection.Copy
    Sheets("脚本生成").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets("1X邻区").Select
    Range("H3:H999").Select
    Selection.Copy
    Sheets("脚本生成").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets("1X邻区").Select
    Range("M3:M999").Select
    Selection.Copy
    Sheets("脚本生成").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets("1X邻区").Select
    Range("E3:E999").Select
    Selection.Copy
    Sheets("脚本生成").Select
    Range("G3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets("1X邻区").Select
    Range("J3:J999").Select
    Selection.Copy
    Sheets("脚本生成").Select
    Range("H3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.ScreenUpdating = True
End Sub
这个宏是我选定了A1:A999后的宏，我想请教下这个宏如果想随着我鼠标选定区域的变化而变化，该怎么改，比如我选了A3:A10区域，那我希望宏运行针对的是A3:A10里面数据

    Range("D3:D999").Select
这句 是选定命令,如果你要使用你选择的区域执行宏的话,修改这些命令.

还有,你这个宏里怎么那么多的选定命令??


   Sheets("1X邻区").Select           '选择工作表
   Range("D3:D999").Select         '选定区域

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim s As Long
    s = 0
    For Each c In Target.Cells
        s = s + c
    Next
    MsgBox s
End Sub