Question

我正在尝试合并VBA程序中的某些单元，但是在尝试执行代码时，我一直遇到应用程序或对象定义的错误。当我将合并范围设置为已定义的单元格时，代码可以完美运行，但是我需要合并范围是动态的。整个程序正在构建数据库，合并是最后一步。我不知道我是否对此进行了很好的解释，所以我将附加代码，以希望您能理解！在此先感谢：）

 Private Sub CommandButton1_Click()

Alpha = Sheets("Jan").Range("Data_Start").End(xlDown)
Beta = Sheets("Jan").Range("Obs_Start").End(xlDown).Offset(0, -3)


Sheets("Jan").Range("Alpha:Beta").Merge
'APPLICATION OR OBJECT DEFINED ERROR HERE'


MsgBox "Your data has been added!"
Unload AddNewUF

End Sub

Answer 1

您正在尝试为范围对象分配两个变量，并期望VBA从文本表示形式解释它们。

您未设置范围对象。

Private Sub CommandButton1_Click()

    dim Alpha as range, Beta as range

    SET Alpha = workSheets("Jan").Range("Data_Start").End(xlDown)
    SET Beta = workSheets("Jan").Range("Obs_Start").End(xlDown).Offset(0, -3)

    Sheets("Jan").Range(Alpha, Beta).Merge '<~~ no error

    MsgBox "Your data has been merged! to " & alpha.mergearea.address(0,0, external:=true)
    Unload AddNewUF

End Sub

应用程序或对象定义的错误（1004）尝试合并单元格时

1 个答案: