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)