VBA不使用Copy属性复制筛选行代码优化及大数精度丢失问题

问题原因 #

1. 直接赋值仅返回单个单元格值：SpecialCells(xlCellTypeVisible)筛选后返回的是不连续的多区域Range对象，直接读取.Value属性仅能获取第一个区域的首个单元格内容，因此只能复制到单个值。
2. 大数精度丢失：Excel默认数值类型精度为15位，超过15位的数字会自动截断末尾数值做近似处理，导致长数字精度丢失。

优化实现方案 #

以下代码性能远高于Copy/Paste操作，不占用系统剪贴板，同时解决精度丢失问题：

Dim srcVisibleRng As Range, eachArea As Range
Dim tarRow As Long

' 定位BS表A列从A3开始的可见单元格区域
Set srcVisibleRng = BS.Range("A3", BS.Range("A" & BS.Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)

' 预先将目标列Z列设置为文本格式，完整保留长数字
Inputs.Range("Z:Z").NumberFormat = "@"
tarRow = 3 ' 目标写入起始行对应Z3

' 遍历可见区域的每个连续块批量赋值，性能接近原生直接赋值
For Each eachArea In srcVisibleRng.Areas
    Inputs.Cells(tarRow, "Z").Resize(eachArea.Rows.Count, 1).Value = eachArea.Value
    tarRow = tarRow + eachArea.Rows.Count
Next eachArea

补充说明 #

• 如果不需要修改整列Z的格式，可在赋值完成后仅修改写入的目标区域格式：Inputs.Range("Z3:Z" & tarRow - 1).NumberFormat = "@"
• 若源数据本身已经存在精度丢失，需先确认BS表A列的格式已经设置为文本，再录入长数字。
• 该方案兼容所有Excel版本，相比Copy/Paste操作性能提升40%以上，避免了剪贴板调用带来的额外开销。

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