نمایش تمامی سلول های مرج شده در یک شیت

[Amir Ghasemiyan]

سلام دوستان

با این کد که خدمتتون تقدیم میکنم میتونین لیستی از همه سلول های مرج شده داخل شیتتون رو داشته باشید.
گاهی وقت ها مثلا وقتی میخواهید محدوده خاصی رو تبدیل به table کنید ممکنه با خطای سلول مرج شده مواجه بشید. برای اینکه بتونین اون سلول ها رو پیدا کنید میتونین از این کد کمک بگیرید




Sub FindAllMerged()
Dim c As Range
Dim sMsg As String
sMsg = ""
For Each c In ActiveSheet.UsedRange
If c.MergeCells Then
If sMsg = "" Then sMsg = "Merged worksheet cells:" & vbCr
sMsg = sMsg & Replace(c.Address, "$", "") & vbCr
End If
Next
If sMsg = "" Then sMsg = "No Merged Cells Found."
MsgBox sMsg
End Sub