如何在VBA中通过字符串变量设置xlDirection参数？

你原来的代码直接传字符串"xldown"行不通，因为End方法需要的是xlDirection枚举类型的参数，不是字符串。下面是两种可行的解决方式：

方式一：直接使用枚举变量 #

定义一个xlDirection类型的变量，直接赋值内置的枚举常量（比如xlDown、xlUp）：

Dim D As Range
Dim direction As xlDirection
Set D = Range("$A$1")

' 给变量赋值方向枚举
direction = xlDown
' 注意：Range对象赋值必须加Set
Set f = Range(D, D.End(direction))

方式二：从字符串映射到枚举值 #

如果必须通过字符串指定方向（比如从用户输入获取），可以用分支判断把字符串转成对应的枚举：

Dim D As Range
Dim aa As String
Dim direction As xlDirection
Set D = Range("$A$1")

aa = "xldown"
' 字符串转枚举，忽略大小写避免出错
Select Case LCase(aa)
    Case "xldown"
        direction = xlDown
    Case "xlup"
        direction = xlUp
    Case "xltoleft"
        direction = xlToLeft
    Case "xltoright"
        direction = xlToRight
End Select

Set f = Range(D, D.End(direction))

关键提醒 #

• 原来的代码漏掉了Set关键字，f是Range对象，必须用Set赋值，不然会触发运行时错误。
• xlDirection是VBA内置的枚举类型，直接用xlDown这类常量是最安全的方式，不用额外做字符串转换。

内容的提问来源于stack exchange，提问作者Josh Hundley