如何在VB中自动合并Excel单元格并且不弹出对话框?!

Question

Dim MyXLsApp As Excel.Application
Dim MyWorkBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Dim MyRange As Excel.Range
    
Set MyXLsApp = New Excel.Application
Set MyRange = .Range("A1:A2")
MyRange.Merge
Set MyRange = .Range("B1:D1")
MyRange.Merge
…………
以上代码可以运行，可是每合并一次单元格就弹出一个对话框“选定区域包含多重数值。合并到一个单元格后只能保留最左上角的数据。”，能否有办法让代码自动运行而不提示。

Answer 1

......
Set MyXLsApp = New Excel.ApplicationMyXLsApp.DisplayAlerts = False  '<-----------加上这句Set MyRange = .Range("A1:A2")
MyRange.Merge
Set MyRange = .Range("B1:D1")
MyRange.Merge
......