سلام دوستان
با این کد که خدمتتون تقدیم میکنم میتونین لیستی از همه سلول های مرج شده داخل شیتتون رو داشته باشید.
گاهی وقت ها مثلا وقتی میخواهید محدوده خاصی رو تبدیل به 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
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)