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