excel中解决不能对多重选定区域使用此命令问题

1、打开要编辑的excel表

2、选中要复制的单元格

3、在菜单栏中选择"开发工具"—"录制宏"

4、点击"录制宏"打开录制宏对话框，填写宏名，并将其保存在"个人宏工作簿"中

5、点击确定即开始录制。

6、然后在开发工具中点击"停止录制"，即录制了一空白宏

7、然后键盘操作。按住"alt+f11"，打开一VBA窗口。在窗口中输入以下代码

按Alt+F11打开VBA界面，并将下述代码更新在“个人宏工作簿”的模块中。

Sub 多区域复制粘贴()

    On Error Resume Next

    Dim SRange() As Range, UPRange As Range, TRange As Range

    Dim i As Long, AreaNum As Long

    Dim MinR As Long, MinC As Long

    AreaNum = Selection.Areas.Count

    ReDim SRange(1 To AreaNum)

    MinR = ActiveSheet.Rows.Count

    MinC = ActiveSheet.Columns.Count

    For i = 1 To AreaNum

        Set SRange(i) = Selection.Areas(i)

        If SRange(i).Row < MinR Then MinR = SRange(i).Row

        If SRange(i).Column < MinC Then MinC = SRange(i).Column

    Next i

    Set UPRange = Cells(SRange(1).Row, SRange(1).Column)

    Set TRange = Application.InputBox(prompt:="选择粘贴区域的最左上角单元格", Title:="多区域复制粘贴", Type:=8)

    Application.ScreenUpdating = False

    For i = 1 To AreaNum

        SRange(i).Copy

        TRange.Offset(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial paste:=xlPasteValues

    Next i

    Application.ScreenUpdating = True

End Sub

8、然后我们可以把这个宏加在快速访问工具中，以后方便使用