高手请出招

Question

试试这个：将第一行1到最后的列合并
Dim i As Long
With FlexGrid1
.MergeCells = flexMergeRestrictAll
For i = 1 To .Cols - 1
    .TextMatrix(0, i) = "我要合并"
Next
.MergeRow(0) = True
End With

Answer 1

yao两行两列的内容相同，你可以自己填相同的进去

Answer 2

to JYQing:好像不行，我的意思是将相邻的两行两列合并,比如:第O行第1列，第0行第2列，第1行第1列，第1行第2列这四个小区域合并成一个

Answer 3

With FlexGrid1
.fixedrows=0
.MergeCells = flexMergeRestrictAll
.TextMatrix(0, 0) = "我要合并"
.TextMatrix(0, 1) = "我要合并"
.TextMatrix(1, 0) = "我要合并"
.TextMatrix(1, 1) = "我要合并"
.MergeRow(0) = True
.MergeRow(1) = True
.MergeCol(0) = True
.MergeCol(1) = True
End With 

Answer 4

to Jackyin: 不对，这只是把两行两列合并成（一行）两列，不能合并成一行一列（即要把这两列合并成一列），拜托了！！