ادغام سلول ها

[mahdi864]

سلام
وقتتون بخیر
من یک سیستم حقوق و دستمزد دارم که خروجی اکسل بصورت ستونی می ده و من برای درج در سامانه ارسال پیامکی می بایستی درون یک سلول داده هام را قرار بدم ،داده ها در هر گروه ازمحل خدمت ها متفاوت هستند
میخواستم از دوستان کمک کنند که با چه فرمول نویسی این داده ها کنار هم بگذارم مثل فایل پیوست
ممنون

[iranweld]

با سلام

فایل پیوست را بررسی کنید


Sub test()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To z1

Range("k" & i) = Range("j2") & " " & Range("a" & i) & " " & Range("b" & i) & Chr(10) _
& Range("c1") & " : " & Range("c" & i) & Chr(10) _
& Range("d1") & " : " & Range("d" & i) & Chr(10) _
& Range("e1") & " : " & Range("e" & i) & Chr(10) _
& Range("f1") & " : " & Range("f" & i) & Chr(10) _
& Range("g1") & " : " & Range("g" & i) & Chr(10) _
& Range("h1") & " : " & Range("h" & i) & Chr(10) _
& Range("j1")

Next

End Sub



18190