祝vb大虾们圣诞快乐,请问这段代码为什么不在form上显示合并单元格的值?

Private Sub Command1_Click()
Dim A As Object
Dim B As Object
Dim c As Object
Dim myrange As Object

Set A = CreateObject("excel.application")
A.Visible = True

Set B = A.Workbooks.Open("J:\hard\LL.xls")
Set c = B.worksheets(1)
c.Activate

Dim j As Integer
    j = 1
    For j = 1 To 10
        If c.cells(2, j).mergecells = True Then Print c.cells(2, j).Value
    Next j




End Sub  --------------------编程问答-------------------- 合并后，有些单元格是空的

补充：VB ,  VBA