【VBA】复制单元格数据有效性
单元格内设置了有效性,通过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
复制前
复制后
作者:奔跑的金鱼
声明:书写博客不易,转载请注明出处,请支持原创,侵权将追究法律责任
个性签名:人的一切的痛苦,本质上都是对自己无能的愤怒
如果觉得这篇文章对你有小小的帮助的话,记得在右下角点个“推荐”哦,博主在此感谢!