解决Excel复制时的报错问题
在日常使用Excel过程中，复制操作可能会出现“不能对多重选定区域使用此命令”的报错，这给用户带来了不少困扰。本文将介绍如何快速、永久性解决这个问题。
报错原因分析
1. 用鼠标选择了非矩形区域；
2. 每个选取不同，导致无法正常复制；
3. 选择区域正确，但手误多选了一个单元格。
解决方法
步骤一：录制宏
1. 在“个人宏工作簿”中录制一个空宏。
2. 使用Alt F11打开VBA界面，在“个人宏工作簿”的模块中输入以下代码：
```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
ReDim SRange(1 To AreaNum)
MinR
MinC
For i 1 To AreaNum
Set SRange(i) (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 (prompt:"选择粘贴区域的最左上角单元格", Title:"多区域复制粘贴", Type:8)
False
For i 1 To AreaNum
SRange(i).Copy
(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial paste:xlPasteValues
Next i
True
End Sub
```
步骤二：绑定宏
在Excel工作表界面，利用自定义快速访问工具栏的方法将该宏绑定在快速访问工具栏上。
步骤三：测试功能
选择任意单元格区域，点击快速访问工具栏上插入的按钮，按提示选择一个空单元格，原选中区域的内容便可按原格式粘贴到新的单元格区域。
方法优点
1. 任意选中区域可以原样粘贴到其他单元格；
2. 可以将筛选状态单元格粘贴到同样筛选状态的表格中；
3. 可以实现修改部分数据后进行“更新”原始区域的功能，同时不影响被粘贴区域的字体格式、边框等。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
