درج مقادیر چند ستون در یک ستون

[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]

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