[حل شده] درج مقادیر چند ستون در یک ستون

[ZAMEN58]

با عرض سلام خدمت دوستان
من فایلی دارم که می خوام مقادیر بالاتر از صفر ستون های c تا j توی شیت main توی ستون b توی شیت hesab1 درج بشه تا یه حدودی پیش رفتم لطفا کمک کنید ممنون

[rasools13]

سلام فایل شما رو نمیتونم ببینم ولی در کل برای ادقام چند سلول در یک سلول با در نظر گرفتن شرط از فرمت کلی ذیل میتونید استفاده کنید

=if(c2>0;c2;"")&if(d2>0;d2;"")&if(e2>0;e2;"")&if(f2>0;f2;"")&if(j2>0;j2;"") 

[ZAMEN58]

سلام فایل موردی داشت؟
ببخشید ولی من کد vb می خواستم
باز هم ممنون

[iranweld]

با سلام

از کدهای ذیل استفاده کنید

Sub test()

t = 1

Z1 = Sheets("MAIN").Cells(Sheets("MAIN").Rows.Count, "A").End(xlUp).Row

Z2 = Application.WorksheetFunction.CountA(Sheets("MAIN").Range("1:1")) - 1

For i = 2 To Z1

For j = 3 To Z2

If Cells(i, j) > 0 Then

Sheets("HESAB1").Range("a" & t) = Cells(i, 1)

Sheets("HESAB1").Range("b" & t) = Cells(i, j)

t = t + 1

End If

Next

Next

End Sub 

[ZAMEN58]

سلام
ممنون از راهنمایی شما
مشکل حل شد