EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图，比如生活开支......
excel中解决不能对多重选定区域使用此命令问题
来源：互联网
2023-02-20 19:33:42 版权归原作者所有，如有侵权，请联系我们
在使用excel时，我们有时在选择一些单元格对齐进行复制时，会出现下面的问题：我们辛辛苦苦选中了一些单元格，然后点击进行复制时，出现下面的提示信息：不能对多重选定区域使用此命令，那么如何解决这一问题呢，接下来我将给大家进行介绍。
工具/原料
- excel2007
方法/步骤
打开要编辑的excel表
选中要复制的单元格
在菜单栏中选择"开发工具"—"录制宏"
点击"录制宏"打开录制宏对话框，填写宏名，并将其保存在"个人宏工作簿"中
点击确定即开始录制。
然后在开发工具中点击"停止录制"，即录制了一空白宏
然后键盘操作。按住"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
然后我们可以把这个宏加在快速访问工具中，以后方便使用
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
上一篇：excel怎么给表格添加边框和背景颜色 下一篇：提取excel文件里的所有照片技巧
