Viết macro xác định các ô trộn

[ChanhTQ@]

Viết 1 macro để liệt kê lại các địa chỉ ô đang được trộn trên 1 trang tính.


ví dụ

. . . A|
Các Ô trộn |
$A$6:$A$9|
$B$4:$C$21|
. . . |

 

[Luc Van]

Viết 1 macro để liệt kê lại các địa chỉ ô đang được trộn trên 1 trang tính.


ví dụ

. . . A|
Các Ô trộn |
$A$6:$A$9|
$B$4:$C$21|
. . . |

hihi...bác ơi em tưởng bác đang post bài ở mục thư giãn chứ....
ẹc ẹc ai giám trả lời bài của bác nếu biết sẽ cùng chung số phận (vào sọt rác)

 

[ndu96081631]

Viết 1 macro để liệt kê lại các địa chỉ ô đang được trộn trên 1 trang tính.


ví dụ

. . . A|
Các Ô trộn |
$A$6:$A$9|
$B$4:$C$21|
. . . |

Hic... sư phụ cứ nói đùa

Sub Test()
  Dim Clls As Range
  With CreateObject("Scripting.Dictionary")
    For Each Clls In ActiveSheet.UsedRange
      If Clls.MergeCells Then
        If Not .Exists(Clls.MergeArea.Address) Then .Add Clls.MergeArea.Address, ""
      End If
    Next
    If .Count Then MsgBox Join(.Keys, vbLf)
  End With
End Sub

Chắc là "nắn gân" gì đây? Ẹc... Ẹc...

 

[thanhlanh]

hihi...bác ơi em tưởng bác đang post bài ở mục thư giãn chứ....
ẹc ẹc ai giám trả lời bài của bác nếu biết sẽ cùng chung số phận (vào sọt rác)

Nếu không hiểu thì hỏi lại chớ bạn đừng nói vậy. Không có bài nào chung số phận với bài trả lời của bạn đâu.
Những câu hỏi của chuyên gia thường là những đề tài hay đáng để cho mọi người học hỏi, nghiên cứu đó.

 

[Luc Van]

Nếu không hiểu thì hỏi lại chớ bạn đừng nói vậy. Không có bài nào chung số phận với bài trả lời của bạn đâu.
Những câu hỏi của chuyên gia thường là những đề tài hay đáng để cho mọi người học hỏi, nghiên cứu đó.

Tôi đang nói đến cái tiêu đề của topic kìa. Chắc bác vô sau nên ko đọc được.
Tôi cũng biết là những bài viết của các bậc tiền bối như vậy thì đang phải học hỏi. Bác không phải nhắc em...ẹc..ẹc...