首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VBA 怎么通过赋值运算将cells单元格的属性也复制过去

2013-03-12 
VBA 如何通过赋值运算将cells单元格的属性也复制过去ActiveSheet.Cells(i, 1) EnglishTDAO.Cells(i, 1)

VBA 如何通过赋值运算将cells单元格的属性也复制过去


  ActiveSheet.Cells(i, 1) = EnglishTDAO.Cells(i, 1) 


这样复制单元格的内容过去,但是其属性不可以带过去,如其对齐方式,字体等等,但是一个一个重新设置太麻烦了,我想直接也将其属性也复制过去,这样该如何做? vba vb
[解决办法]
引用:
麻烦具体点
 Visual Basic code?12    ActiveSheet.Cells(i, 1) = EnglishTDAO.Cells(i, 1)   
这种样子应该如何用 粘贴 用法

引用:range.PasteSpecial Paste:=xlPasteFormats

你这是做循环?
ActiveSheet.Cells(i, 1).copy
EnglishTDAO.Cells(i,?1).Paste
要是在区域内循环的话不如直接用Range复制
ActiveSheet.Range(Cells(iStart, 1), Cells(iEnd, 1)).Copy
ActiveSheet.Paste Destination:=EnglishTDAO.Cells(iStart, 1)

热点排行