将变量传递给子

Question

当我编写Test1子的最后一行时，我收到一个错误。它说“期待=”。有什么想法吗？

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

Answer 1

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

selectByUsedRows a, b