VBA中如何向函数正确传递偏移后的Range对象？

你的代码存在两个关键问题，导致传递的是值而非Range对象：

• 调用函数时直接用括号包裹参数，在VBA中会强制将对象转换为其默认属性值（Range的默认属性是Value）；
• 原调用代码末尾缺少一个闭合的右括号。

修正方案一：将函数改为过程（Sub） #

由于你没有使用colorTap的返回值，用Sub过程更合适，调用时不需要加括号：

'修正后的过程
Sub colorTap(x As Range)
   x.Select
   With Selection.Interior
      '执行你的操作，例如：
      .Color = vbRed
   End With
End Sub

'调用代码
i = -1
lastCol = 13 
colorTap Range(Range("B4").Offset(i, -1), Range("B4").Offset(i, lastCol))

修正方案二：保留函数，调整调用方式 #

如果必须保留Function，有两种正确调用方式：

1. 接收函数返回值（即便不需要使用）：

Dim dummy As Variant
i = -1
lastCol = 13 
dummy = colorTap(Range(Range("B4").Offset(i, -1), Range("B4").Offset(i, lastCol)))

2. 使用Call语句调用：

i = -1
lastCol = 13 
Call colorTap(Range(Range("B4").Offset(i, -1), Range("B4").Offset(i, lastCol)))

可选优化：简化Range构造 #

先获取基准偏移后的单元格，再构建范围，代码可读性更强：

i = -1
lastCol = 13 
Dim baseOffsetCell As Range
Set baseOffsetCell = Range("B4").Offset(i, 0)
colorTap Range(baseOffsetCell.Offset(0, -1), baseOffsetCell.Offset(0, lastCol))

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