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

fieldset{padding:10px;}

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

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

这样复制单元格的内容过去，但是其属性不可以带过去，如其对齐方式，字体等等，但是一个一个重新设置太麻烦了，我想直接也将其属性也复制过去，这样该如何做？

vba vb ——解决方案——————————————————–

引用:

麻烦具体点VisualBasiccode?12ActiveSheet.Cells(i,1)=EnglishTDAO.Cells(i,1)这种样子应该如何用粘贴用法引用:range.PasteSpecialPaste:=xlPasteFormats

你这是做循环？ActiveSheet.Cells(i,1).copyEnglishTDAO.Cells(i,?1).Paste要是在区域内循环的话不如直接用Range复制ActiveSheet.Range(Cells(iStart,1),Cells(iEnd,1)).CopyActiveSheet.PasteDestination:=EnglishTDAO.Cells(iStart,1)没有创造的生活不能算生活，只能算活着。

相关文章：

你感兴趣的文章：

标签云：