紧急求助！！！！！！

Question

Dim i As Long
    With grd
        .Cols = 4
        .Rows = 3
        .FixedRows = 2
        .FixedCols = 0
        
        .MergeCells = flexMergeFree
        .MergeRow(0) = True
        .MergeRow(1) = True
        .TextMatrix(0, 0) = "A"
        .TextMatrix(0, 1) = "A"
        .TextMatrix(0, 2) = "B"
        .TextMatrix(0, 3) = "B"
        
        .TextMatrix(1, 0) = "A1"
        .TextMatrix(1, 1) = "A2"
        .TextMatrix(1, 2) = "B1"
        .TextMatrix(1, 3) = "B2"
        
        For i = 0 To .Cols - 1
            .ColAlignmentFixed(i) = 4
        Next i
    End With

Answer 1

把它放到Form_load 中试一下

Answer 2

不会，如果你要合并第5行，可这样：
grd.MergeRow(5) = True