Excel 将变量传递给子对象

当我编写Test1子脚本的最后一行代码时，我得到一个错误。它说“expecting=”。有什么想法吗

Sub selectByUsedRows(usedCol As String, selectCol As String)
n = Range(usedCol).End(xlDown).Row
Range(selectCol & "1:" & selectCol & n).Select
End Sub

Sub Test1()
Dim a As String, b As String
a = "A"
b = "B"
selectByUsedRows (a, b)
End Sub

更正了评论中的代码，谢谢

Sub selectByUsedRows(usedCol As String, selectCol As String)
n = Range(usedCol & "1").End(xlDown).Row
Range(selectCol & "1:" & selectCol & n).Select
End Sub

Sub Test1()
Dim a As String, b As String
a = "A"
b = "B"
selectByUsedRows a, b
End Sub

---

您正在调用

selectByUsedRows

，就像在调用函数一样。调用子例程时不需要括号：

selectByUsedRows a, b

---

您正在调用

selectByUsedRows

，就像在调用函数一样。调用子例程时不需要括号：

selectByUsedRows a, b

---

这解决了第一个问题！现在我在selectByUsedRows子脚本中抛出一个错误“1004”。它声明对象“\u Global”的方法“Range”失败。我错误地定义了Range。都修好了，还在工作！谢谢。这解决了第一个问题！现在我在selectByUsedRows子脚本中抛出一个错误“1004”。它声明对象“\u Global”的方法“Range”失败。我错误地定义了Range。都修好了，还在工作！谢谢