Question

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

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

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

我一直收到以下错误：

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

我尝试创建一个String＆＃34; inRange＆＃34;并将代码更改为：

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。我希望这有助于您实现您想要实现的目标。

Answer 2

据我所知，您收到的错误是因为您的类型不匹配。我想rowCount是一个整数，低于RowCount。如果在连接它们之前将它们转换为字符串，则可以修复它。 str（）将整数转换为前面有空格的字符串，LTrim（）将删除空格。请尝试以下代码：

Dim sRowCount As String
Dim sBelowRowCount As String

以后

sRowCount = LTrim(Str(RowCount))
sBelowRowCount = LTrim(Str(belowRowCount))

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

希望这有帮助。

将变量连接到要在VBA中设置为范围的字符串

2 个答案: