Sub test1()
Dim Rng As Range
For Each Rng In Sheet1.UsedRange
If Rng.MergeArea.Address <> Rng.Address Then
Debug.Print Rng.MergeArea.Address
End If
Next
End Sub
Dim Rng As Range
For Each Rng In Sheet1.UsedRange
If Rng.MergeArea.Address <> Rng.Address Then
Debug.Print Rng.MergeArea.Address
End If
Next
End Sub
这是vba操作么? 用vb.net该怎么写?
Cells(RowCount, ColCount).MergeArea.Columns.Count
就可以了