将变量连接成字符串以在 VBA 中设置为范围

Question

我遇到了特定代码行的问题：

ActiveSheet.Range("A" & rowCount & ":" & Mid(alphabet, totHdrLngth, 1) & belowRowCount)

其中字母表是包含大写字母 A 到 Z 的字符串。

我不断收到以下错误：

Run-time error '5':
Invalid Procedure call or argument

我尝试创建一个字符串“inRange”并将代码更改为：

inRange = "A" & rowCount & ":" & Mid(alphabet, totHdrLngth, 1) & belowRowCount
curRange = ActiveSheet.Range(inRange)

但这并没有帮助（因为我认为它不会）。有什么建议？

Answer 1

虽然创建这样的范围通常是不受欢迎的，但这样做的方法是使用 SET 这个词（就像@Gary McGill 在评论中所说的那样）。以下是如何执行此操作的示例：

Sub test()

Dim alphabet As String
Dim totHrdrLngth As Long
Dim belowRowCount As Long
Dim rowCount As Long
Dim inRange As Range

alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
totHrdrLngth = 5
belowRowCount = 10
rowCount = 5

' Gives us A5:E10
Set inRange = Range("A" & rowCount & ":" & range2 & _
                    Mid$(alphabet, totHrdrLngth, 1) & belowRowCount)

End Sub

您正在当前范围内运行此宏，因此无需指定 ActiveSheet.Range。我希望这可以帮助您实现您正在努力实现的目标。