پرسش جستجو و تابع if

[mehrabn]

سلام
یه فایل اکسل دارم که توی سطرهاش یکسری اعداد هستش و در بالای هر کدام از ستونها یکسری اسم، میخواهم با نوشتم فرمول HLookup و if هرجا که عدد هستش رو توی یک سلول همه رو کنارهم بزاره(یعنی فرمولی بنویسیم که خانه های غیر خالی رو که سر ستون آنها اسم هستش رو کنارهم بنویسه).


مطابق فایل پیوست

[iranweld]

با سلام

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

=if(isnumber(b4),$b$1&",","")&if(isnumber(c4),$c$1&",","")&if(isnumber(d4),$d$1&",","")&if(isnumber(e4),$e$1&",","")&if(isnumber(f4),$f$1&",","")&if(isnumber(g4),$g$1,"") 

[mehrabn]

با تشکر از راه حل شما،فقط یه مشکلی اینجا وجود دارهآاینکه هر روز یه ستون به ستون های من اضافه میشه و در طول سال نزدیک 300-400تا ستون خواهم داشت که هم فایل اکسل سنگین میشه و هم اینکه به تعداد ستون ها باید فرمول بنویسم.نمیشه با فرمول سرچ کردن" HLookup " اینکارو انجام بدیم؟

[iranweld]

با تشکر از راه حل شما،فقط یه مشکلی اینجا وجود دارهآاینکه هر روز یه ستون به ستون های من اضافه میشه و در طول سال نزدیک 300-400تا ستون خواهم داشت که هم فایل اکسل سنگین میشه و هم اینکه به تعداد ستون ها باید فرمول بنویسم.نمیشه با فرمول سرچ کردن" HLookup " اینکارو انجام بدیم؟

با سلام

فایل پیوست با vb تهیه گردید هر ستون جدیدی اضافه شود مشکلی در روند برنامه ایجاد نمیگردد.
بررسی و اعلام نظر بفرمایید

Sub TEST()
   
Dim STR As String
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
n = Application.WorksheetFunction.CountA(Range("1:1"))

Columns(n + 1).Select
    Selection.ClearContents
    Cells(1, n).Select
    

For i = 2 To Z
For J = 2 To n
If Cells(i, J).Value <> "" Then
    STR = STR & Cells(1, J).Value & ","
    Cells(i, n + 1).Value = STR
    End If
    Next J
    STR = ""
Next i
End Sub