代码运行结果：

代码截图：

代码文本：

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