在使用excel时，我们有时在选择一些单元格对齐进行复制时，会出现下面的问题：我们辛辛苦苦选中了一些单元格，然后点击进行复制时，出现下面的提示信息：不能对多重选定区域使用此命令，那么如何解决这一问题呢，接下来我将给大家进行介绍。

操作方法

• 01

  打开要编辑的excel表

  

• 02

  选中要复制的单元格

  

• 03

  在菜单栏中选择”开发工具”—”录制宏”

  

• 04

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

  

• 05

  点击确定即开始录制。

• 06

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

  

• 07

  然后键盘操作。按住”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

  

• 08

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