试试这些东西行不行
Private Sub Command1_Click()
Dim i As Long, j As Long
With m
For i = 1 To 2
For j = 1 To 10
.TextMatrix(i - 1, j - 1) = "1_1"
Next j
Next i
For i = 3 To 10
For j = 1 To 10
.TextMatrix(i - 1, j - 1) = i & "_" & j
Next j
Next i
End With
End Sub
Private Sub Command2_Click()
With m
.MergeCells = 1
.MergeRow(1) = True
.MergeRow(0) = True
End With
End Sub