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

复制前

复制后

点击下载附件