金莎拍过的电视剧1、多重区域的复制:(宏命令设置方法)
打开excel——视图——宏——录制宏——保存于:个人宏工作簿——点击工作簿左下角方块停止宏录入 ——ctrl F11打开VBA界面——选择VBAProject(PERSONAL)文件夹下的模块,“模块一”子文件夹,双击打开“模块一”,清空工作界面的代码,复制粘贴该宏命令——alt F11 返回工作薄界面——打开自定义快速访问栏(工作薄最上方一行的向下按钮)——其他命令——自定义:宏;双击“personal.xlsb!多区域复制粘贴”添加到快速访问栏。
宏命令:
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
2操作方法:
选中要复制的内容——点击快速访问栏里的该宏命令——点击要黏贴到的区域
裁剪视频3、如果使用该宏命令后,在保存时出现问题:
问题一:EXCEL保存时提示“隐私问题警告:此文档中包含宏···它们中可能包含个人信息,这些信息无法···来删除":
2003中:点击工具——选项——安全性,将“保存时从文件属性删除个人信息”的复选框取消。吴亦凡叫赵今麦傻瓜
2007中:菜单键——excel选项——信任中心——设置——个人信息设置——将“保存时从文件属性删除个人信息”的复选框取消
问题二:蔡少芬让刘銮雄干了几年图片是否将所做的更改保存到个人宏工作簿……、
选择“是”
发布评论