VBA中.Range.Resize使用Cells()与直接指定Range的差异及问题排查

两种单单元格区域声明的差异 #

1. ws1.Range(ws1.Cells(1,2), ws1.Cells(10,2))
   这种写法通过两个单元格对象定义区域的左上角与右下角边界，给Cells加上ws1.前缀后，所有单元格的父工作表明确为ws1，因此Range会精准指向ws1中的B1:B10区域，语法完全合法。

2. ws1.Range(ws1.Cells(1,1))
   这是冗余且易出错的写法：ws1.Cells(1,1)本身就是指向单个单元格的Range对象，无需再用ws1.Range()包裹。若未给Cells加ws1.前缀，Cells默认指向当前活动工作表的单元格，此时ws1.Range()尝试引用跨工作表的单元格对象，就会触发1004错误——即便加了前缀，这种写法也毫无意义，直接使用ws1.Cells(1,1)即可。

用R1C1表示法实现操作 #

完全可以用R1C1样式实现区域引用，逻辑更清晰，尤其适合动态计算场景：

• 引用ws1中B1:B10区域：ws1.Range("R1C2:R10C2")
• 从A1扩展10行1列：ws1.Range("R1C1").Resize(10, 1)
• 完整赋值代码示例：

ws1.Range("R1C1").Resize(10, 1).Value = ws1.Range("R1C2:R10C2").Value

更简洁的动态写法（基于起始单元格扩展）：

ws1.Range("R1C1").Resize(10, 1).Value = ws1.Range("R1C2").Resize(10, 1).Value

性能差异对比 #

几种合法写法的性能差异几乎可忽略，除非处理十万级以上超大单元格区域：

• ws1.Range(ws1.Cells(1,2), ws1.Cells(10,2))：需先解析两个边界单元格的位置再确定区域，逻辑稍繁琐，但耗时极微。
• ws1.Cells(1,2).Resize(10,1)：直接从起始单元格扩展，逻辑更简洁，性能略优（但差距无法感知）。
• R1C1样式引用：与A1样式性能完全一致，仅引用格式不同，适合需要行列偏移计算的场景。

报错核心原因与修复 #

添加ws1.前缀后仍报错，本质是写法冗余错误：
错误写法：

ws1.Range(ws1.Cells(1,1)).Resize(10,1).Value = ...

正确写法（二选一）：

' 直接用Cells.Resize
ws1.Cells(1,1).Resize(10,1).Value = ws1.Cells(1,2).Resize(10,1).Value

' 用R1C1样式
ws1.Range("R1C1").Resize(10,1).Value = ws1.Range("R1C2:R10C2").Value

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