代码运行结果:
代码截图:
![VBA案例精选 复制单元格的有效性设置](https://p3-tt.byteimg.com/origin/pgc-image/c4866bc47fa14974b06a773fb2697d0b.png?from=pc)
代码文本:
Public Sub 技巧()
Dim myRange1 As Range
Dim myRange2 As Range
Columns("D:D").Clear ‘清空D列数据
Set myRange1 = Range("A1:A7") '指定要复制的单元格区域
Set myRange2 = Range("D1") '指定要复制的位置(左上角单元格)
myRange1.Copy ‘复制myRange1内容
myRange2.PasteSpecial Paste:=xlPasteValidation '复制单元格的有效性
Set myRange1 = Nothing
Set myRange2 = Nothing
End Sub
注释:
Pastespecial是选择性粘贴,该表达式返回一个range对象,xlPasteValidation是有效性验证。
VBA编辑神器放送
VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度,降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐 VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接:http://excel880.com/blog/archives/11297