【VBA】复制单元格数据有效性

时间：2017-08-11 12:21:16 阅读：157 评论：0 收藏：0 [点我收藏+]

标签：点击下载 round 下载 inline order alt ima 设置技术分享

单元格内设置了有效性，通过VBA怎么去复制呢？代码如下：

Public Sub 复制单元格批注()
  Dim range1 As range
  Dim range2 As range
  ‘清除G列
  Columns("G:G").Clear
  Set range1 = range("A1:A2")  ‘指定要复制的单元格区域
  Set range2 = range("D1")     ‘指定要复制的位置（左上角单元格
  range1.Copy
  range2.PasteSpecial Paste:=xlPasteValidation  ‘复制有效性
  ‘回收内存
  Set range1 = Nothing
  Set range2 = Nothing
End Sub

复制前

复制后

点击下载附件

【VBA】复制单元格数据有效性

标签：点击下载 round 下载 inline order alt ima 设置技术分享

原文地址：http://www.cnblogs.com/OliverQin/p/7344991.html

踩

(0)

评论一句话评论（0）