代码之家 › 专栏 › 技术社区 › skkakkar

用可变变量概括范围

vba excel

0

skkakkar · 技术社区 · 4 年前

Sub test11()
Dim i As Integer
i = 15
ActiveWorkbook.ActiveSheet.Range("b2:b11") = "love"
ActiveWorkbook.ActiveSheet.Range("c2:c&i") = "Hate"
End Sub

此代码行给出错误1004。如何更改此行,以便每次都可以将I设置为不同的数字。上面的代码只是长代码的一部分,其中range被多次使用。

ActiveWorkbook.ActiveSheet.Range("c2:c&i") = "Hate"

谢谢

1 回复 | 直到 4 年前

1

0

Arun 4 年前

你必须提到 i 在引用之外。因为,, VBA 假设 range 事实并非如此(因为 我 而不是范围本身 value substitution 必须在报价之外完成( "" )

Sub test11()
Dim i As Integer
i = 15
ActiveWorkbook.ActiveSheet.Range("b2:b11") = "love"
ActiveWorkbook.ActiveSheet.Range("c2:c" & i) = "Hate"
End Sub