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

Posted

技术标签:

【中文标题】将变量连接成字符串以设置为 VBA 中的范围【英文标题】:Concatenating Variables Into String to be Set to a Range in VBA 【发布时间】:2011-10-20 05:32:28 【问题描述】:

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

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

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

我不断收到以下错误:

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

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

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

但这并没有帮助(因为我认为它不会)。有什么建议吗?

【问题讨论】:

你能不能用Debug.Print inRange把inRange的值放到调试窗口中(ctrl+g)? 嗯.. 在调试窗口中看不到任何内容。在调试模式下将光标运行在“inRange”上并说字符串为空 (inRange = "") 我只是想知道当你调用 range 时范围字符串的样子,也许你可以 MsgBox 它什么的。 inRange 打印为空(没有显示) 当你给一个类型的变量赋值时,你需要使用Set关键字。所以 curRange 分配看起来需要一个。没有它,您将收到您描述的错误“对象变量或带有块”错误。 【参考方案1】:

虽然创建这样的范围通常是不受欢迎的,但这样做的方法是使用 SET 一词(如 cmets 中所述的@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。我希望这可以帮助您实现您想要实现的目标。

【讨论】:

【参考方案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)

希望这会有所帮助。

【讨论】:

Excel VBA 会将它们转换为所需的字符串。 如果你使用字符串连接符和号(&),任何整数都会自动转换为字符串

以上是关于将变量连接成字符串以设置为 VBA 中的范围的主要内容,如果未能解决你的问题,请参考以下文章

VBA将许多变量连接成字符串

VBA范围255个字符限制[重复]

VBA范围255字符限制[重复]

访问VBA更新列以进行连接

将连接字符串设置为Azure函数中的应用设置/环境变量

EXCEL VBA 里面如何动态获取字符串转换为变量名?