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

最新推荐文章于 2024-07-15 21:31:41 发布

weixin_33815613

最新推荐文章于 2024-07-15 21:31:41 发布

阅读量592

点赞数

本文介绍了一段使用VBA代码来实现Excel中单元格有效性的复制过程。代码首先清除了目标列的内容，然后指定了源单元格区域及目标位置，并通过Copy和PasteSpecial方法完成了有效性设置的复制。

单元格内设置了有效性，通过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