如何正确使用Range属性？批量复制单元格异常问题求助

核心结论 #

和Union运算符（逗号）、Range运算符（冒号）的优先级没关系，问题出在VBA对多区域Range赋值的匹配逻辑上。

原因说明 #

你写的Range("C1:C2, D1:D2").Value = Range("A1:A2").Value里，目标区域是两个连续区域合并成的Union集合。VBA处理这种赋值时，会按「从左到右、从上到下」的顺序遍历目标里的每一个单元格，然后逐个对应源区域的单元格值：

• C1对应A1，C2对应A2
• 源区域遍历完后，会循环从头来，所以D1对应A1，D2对应A2

如果你的预期是让C1:C2和D1:D2各自完整复制A1:A2的内容，这种直接赋值的逻辑就不符合需求——VBA不会自动识别你要把源区域分别复制到每个子区域。

正确实现方法 #

要一次性把内容复制到多个不同位置，有两种常用写法：

方法1：遍历子区域赋值 #

Dim src As Range, area As Range
Set src = Range("A1:A2")
For Each area In Range("C1:C2, D1:D2").Areas
    area.Value = src.Value
Next area

这种方式会逐个处理目标里的每个连续区域，把源区域的值分别赋值过去，完全满足多位置复制同一内容的需求。

方法2：复制粘贴（支持格式） #

如果需要连格式一起复制，可以用复制粘贴：

Range("A1:A2").Copy
Range("C1:C2, D1:D2").PasteSpecial xlPasteValues ' 只复制值，要格式就换成xlPasteAll
Application.CutCopyMode = False ' 关掉剪贴板的复制状态

内容的提问来源于stack exchange，提问作者오바마