VBA 编辑器提示缺少对象

Question

由于某种原因，VBE 告诉 ConcatenateRows 需要一个对象，我不太清楚为什么，立即窗口告诉我 ConsolidateRange 是一个范围:

Option Explicit
Private ConsolidateRange As Range

Private Sub CancelButton_Click()
    RangeConsiolidateForm.Show
End Sub


Private Sub RangeInput_Change()
    Set ConsolidateRange = Range(RangeInput)
End Sub

Private Sub UserForm_Initialize()
    Direction.AddItem "Rows"
    Direction.AddItem "Columns"
End Sub

Private Sub OkButton_Click()
    If Direction = "Rows" Then
        ConcatenateRows (ConsolidateRange)
        RangeConsiolidateForm.Show
    End If
End Sub

和

Public Sub ConcatenateRows(InputRange as range)
....bunch of code....
End Sub

更新:我遇到的错误是“运行时错误'424':需要对象”

Answer 1

尝试更改您的通话

ConcatenateRows (ConsolidateRange)

至

ConcatenateRows ConsolidateRange

这是针对新手的过程调用的旧 VBA 捕获。