我正在尝试编写代码，我相信它必须是一个函数。我想选择一列中的第一行，它将创建一个包含所有其下的行的区域（直到空单元格）。我认为问题是“范围”的语法。
（最终，我的目标是能够在两个不同的列中选择两个单元格，自动创建2个范围并在散点图中将它们相对绘制。但是我只在第一部分中苦苦挣扎）
我的代码如下所示：
`
Function rng1(x as variant)
Dim ji as string, jf as string
Dim rng1 as range
ji=x.Address
jf=x.End(xldown).Address
rng1=Range(ji:jf)
'
我删除了“ rng1”的变量声明，因为您不能将变量命名为与函数相同的名称。您只需要将字符串连接在一起。您还必须设置函数，因为范围是对象类型而不是基元。
Function rng1(x as variant) as Range
Dim ji as string, jf as string
ji=x.Address
if x.offset(1,0) <> "" then
jf=x.End(xldown).Address
else
jf=ji
end if
set rng1=Range(ji & ":" & jf)
End Function
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句