Excel VBA复制命名区域数据时如何避免空单元格转零且不破坏原有内容

方案1：数组批量处理（效率最高，适合大数据量） #

直接在内存中处理每个区域的值，避免逐单元格操作，运行速度和原始直接赋值逻辑几乎无差异，只会过滤掉源区域本身为空的单元格生成的0值，不会误伤包含0的文本、也不会误删本身值为0的有效数据。

Dim i As Long, arr As Variant, r As Long, c As Long
For i = 1 To rngDest.Areas.Count
    ' 把源区域值读入数组
    arr = rngSrc.Areas(i).Value
    ' 处理数组：源为空的位置设为空，保留其他数值和文本
    If IsArray(arr) Then ' 区域包含多个单元格的情况
        For r = 1 To UBound(arr, 1)
            For c = 1 To UBound(arr, 2)
                If IsEmpty(arr(r, c)) Then arr(r, c) = vbNullString
            Next
        Next
    Else ' 单个单元格的特殊情况
        If IsEmpty(arr) Then arr = vbNullString
    End If
    ' 写入目标区域
    rngDest.Areas(i).Value = arr
Next i

原理：源区域的空单元格读入数组时是Empty类型，直接赋值给单元格时VBA会自动转换为0，提前把Empty替换成空字符串再写入，就不会生成多余的0。

方案2：复制粘贴值（代码最简洁，适合中小数据量） #

如果数据量不是特别大，直接复用Excel自带的粘贴值逻辑，原生就会保留空单元格为空白，不会转成0：

Dim i As Long
For i = 1 To rngDest.Areas.Count
    rngSrc.Areas(i).Copy
    rngDest.Areas(i).PasteSpecial Paste:=xlPasteValues
Next i
' 清空剪贴板避免残留
Application.CutCopyMode = False

该方案不用自行写判断逻辑，完全遵循Excel内置的复制规则，不会出现误删文本中0的问题。

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