پیدا کردن ستون و ردیف سلول خالی همزمان

**majid_mx4** · 2020/03/22, 13:08

با سلام

لطفا فرمول زیر را چک کنید امیدوارم که کارتان را راه بیانداز( بر گرفته از یک سایت خارجی)

کد:

=IF(ROWS($1:1)>COUNTIF($B$1:$D$5,""),"",SUBSTITUTE(CELL("address",INDIRECT(TEXT(SMALL(IF($B$1:$D$5="",10^5*ROW($B$1:$D$5)+COLUMN($B$1:$D$5)),ROWS($1:1)),"R0C00000"),0)),"$",""))

پایدار باشید میر

**saed.rasa** · 2020/03/22, 16:17

سلام

ضمن تشکر فراوان از اینکه وقت گذاشتید و این را آماده کردید
خوب بود و کاربردی من قبلا این مشکل را داشتم (دریافت ادرس سلول شرط خالی بودن)

اما به نظر می رسد توضیحاتم کافی نبوده و متاسفانه جواب مطلوب من نبود
منظورم ستون و ردیف یک جدول بود نه آدرس سول در اکسل

فیلدهای ستون جدول و عنوان ردیف های جدول منظورم بود که می توانند عدد یا کلمه باشند

یک جدول برنامه هفتگی را در نظر بگیرید : ستون ها از روزها تشکیل شده و سطرها از ساعت ها

مثال : اگر در جدول فرضی یک یا چند سلول خالی باشد حالا یک سلول خالی در هر کجای جدول فرقی نمی کند عنوان ستون و ردیف منناظر نیاز است مثل روز یکشنبه ساعت 8 سلول خالی= (یکشنبه8) یا(8یکشنبه)

نیاز است همه سلول های خالی در یک ستون مشخص و پشت سرهم بیاید.

مرسی

فایل های پیوست شده

برنامه کاری.xlsx (9.8 کیلو بایت, مشاهدات 9)

**majid_mx4** · 2020/03/23, 01:40

با سلام

لطفا کد زیر را بررسی کنید .

کد:

Sub Mir2()
Range("h2:h1000").ClearContents
Dim lColumn As Long
Dim i As Integer
lColumn = ActiveSheet.Cells(5, Columns.Count).End(xlToLeft).Column
Lastrow = Cells(Rows.Count, "a").End(3).Row

For IRow = 2 To Val(Lastrow)
    If IRow > Lastrow Then
Exit Sub
    Else
For iCol = 1 To Val(lColumn * 1) Step 1
If Cells(IRow, iCol) = "" And Cells(1, iCol) = Cells(1, iCol) Then
LastrowZ = Cells(Rows.Count, "H").End(3).Row + 1
Cells(LastrowZ, 8) = Range("A" & IRow) & "-" & Cells(1, iCol)

End If
Next
End If
Next
End Sub

موفق باشید میر