Question

VB表示合并单元格

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
If Target.Count = 1 Then
If Target.Column = 3 And Target.Row =5 Then
With Me.TextBox1
.Visible = True
.Top = Target.Top
.Left = Target.Left
.Width = Target.Width
.Height = Target.Height + 3
End With
With Me.ListBox1
.Visible = True
.Top = Target.Top
.Left = Target.Left + Target.Width
.Width = Target.Width + 40
.Height = Target.Height * 5
'For i = 4 To Sheet2.Range("A65536").End(xlUp).Row
'.AddItem Sheet2.Cells(i, 1).Value
'Next
End With
Else
Me.ListBox1.Clear
Me.TextBox1 = ""
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False
End If
End If
End Sub
Sheet1的C5与G5是合并单元格，需要怎样写

Answer 1

1 设置合并方式
'flexMergeNever 0 不显示。包含相同内容的单元不分组。这是缺省设置。
'flexMergeFree 1 自由。包含相同内容的单元总是合并。
'flexMergeRestrictRows 2 限制行。只有行中包含相同内容的相邻单元（向当前单元左边）才合并。
'flexMergeRestrictColumns 3 限制列。只有列中包含相同内容的相邻单元（向当前单元上方）才合并。
'flexMergeRestrictBoth 4 限制行和列。只有在行中（向左）或在列中（向上）包含相同内容的单元才合并。

msflexgrid.MergeCells = flexMergeFree
2 .设置合并的列
msflexgrid.MergeCol(m) = True '第m列合并
msflexgrid.MergeRow(n) = True '第n行合并

Answer 2

合并单元格的地址就是左上角的那个单元格的地址。用这个单元格表示就好了。
如果是位置高度这些 ，是分开独立的。
不懂你要干嘛

Answer 3

是判断是否合并吗？
IF .Sheets("Sheet1").Range("C5:G5").MergeCells Then
MasBox "合并"
else
MasBox "未合并"

end if