如何复制单元格全部属性？现有VBA代码仅复制.Value属性

你的原代码通过直接赋值单元格的方式，只会复制单元格的Value属性，格式、批注、样式等其他属性不会被传递：

For I = 1 To ArchivoDestino.Worksheets("Agentes").Cells(1, 1).CurrentRegion.Rows.Count
    For J = 1 To 10
        Worksheets("Agentes").Cells(I, J) = ArchivoDestino.Worksheets("Agentes").Cells(I, J)
     Next J
Next I

要复制单元格的全部属性，有两种更高效的实现方式：

方法1：直接复制整个目标区域（推荐） #

避免逐单元格循环，直接复制整个区域，效率更高：

Dim sourceArea As Range
Dim destArea As Range

'定义源数据区域：取Agentes表中A1当前区域，且只保留前10列
Set sourceArea = ArchivoDestino.Worksheets("Agentes").Cells(1, 1).CurrentRegion.Resize(ColumnSize:=10)
'定义目标区域：当前工作簿Agentes表中对应位置
Set destArea = ThisWorkbook.Worksheets("Agentes").Range(sourceArea.Address)

'复制全部属性到目标区域
sourceArea.Copy destArea

方法2：逐单元格复制全部属性（适合特殊场景） #

如果必须逐单元格处理，使用Copy+PasteSpecial xlPasteAll来复制所有属性：

Dim rowCount As Long
rowCount = ArchivoDestino.Worksheets("Agentes").Cells(1, 1).CurrentRegion.Rows.Count

For I = 1 To rowCount
    For J = 1 To 10
        '复制源单元格全部属性
        ArchivoDestino.Worksheets("Agentes").Cells(I, J).Copy
        '粘贴到目标单元格，包含所有属性
        ThisWorkbook.Worksheets("Agentes").Cells(I, J).PasteSpecial Paste:=xlPasteAll
    Next J
Next I

'清除剪贴板状态，避免Excel保留复制提示
Application.CutCopyMode = False

xlPasteAll参数会复制单元格的所有内容和属性，包括值、格式、公式、批注、数据验证、条件格式等。

内容的提问来源于stack exchange，提问作者leo3487