单元格内设置了有效性,通过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
复制前
复制后