[حل شده] ادغام محتوای دو ستون در یک ستون با VBA

[yousef82]

با سلام و عرض خسته نباشید .. من در مورد مسئله ای باز به کمک شما نیازمندم خواهش میکنم راهنمایی بفرمایید :
در یک فایل اکسل در ستون A در خانه های a1 a2 a3 a4 a5 جملاتی به رنگ قرمز آمده است .. و در روبروی این جملات در ستون B در خانه های b1 b2 b3 b4 b5 جملاتی به رنگ آبی امده است
میخواهم یک ماکرو رو معرفی بفرمایید که همه این 10 سلول را فقط در ستون A بیاورد بترتیب زیر :
a1
b1
a2
b2
a3
b3
a4
b4
a5
b5
و نیز رنگ و فرمت این جملات حفظ شود . با سپاس از راهنمایی شما

[yousef82]

دو فایل نمونه 1 و 2 رو به عنوان نمونه کاری که باید صورت بگیرد خدمت شما میاورم
http://s8.picofile.com/file/8319352026/1_2.rar.html

[yousef82]

ممنون میشم پاسخ دهید .. اگر سوال را در جای مناسبی طرح نکردم مدیر محترم بفرمایند که به جای دیگر منتقل نمایم . با سپاس

[iranweld]

با سلام

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

Sub test()
k = 1

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

For i = 1 To z1

Range("a" & i).Copy
Range("d" & k).Select
ActiveSheet.Paste

Range("b" & i).Copy
Range("d" & k + 1).Select
ActiveSheet.Paste

k = k + 2

Next

End Sub 

[yousef82]

سلام سلام ... واقعا ممنونم و خیلی هم عالی این ماکرو کار میکنه کمک بزرگی بهم کردید شما ..
سپااااااسگزارم