پرسش نوشتن متون داخل خانه های یک ستون پشت سرهم

[Z.Ruzbeh]

سلام
وقت همگی بخیر باشه من یک فایل اکسل دارم شامل یک ستون که 380 سطر جمله در هر سطر نوشته شده هدفم این هست که محتوای داخل سلول ها به صورت پیوسته در یک فایل ورود نمایش داده بشه. برای چند عدد سلول میشد از دستور concatenate استفاده کرد ولی اینجا که تعداد سلول ها زیاده چه باید کرد ؟
پیشاپیش از همکاری شما سپاسگزارم

[مرتضی حسینی]

با سلام راه حل توی استفاده از ارایه هست از اموزش سایت هدف اموزش اقای افشین بوشهری زاده استفاده کردم فایل نمونه رو هم گذاشتم هر کی میخواد استفاده کنه تعداد ردیف هارو در ماکرو تغییر بده این ماکرو تمام سلولها رو دریک سلول جمع میکنه همراه با یک جدا کننده بعد میشه در ورد کپی کرد . حسینی 1401/7/25

Sub fixx()
Dim areey(380) As String
Dim myareey As String
For k = 1 To 380
  areey(k) = Range("j" & k).Value
Next
   For f = 1 To 380
     myareey = myareey & "_" & areey(f)
   Next f
  Range("f5").Value = myareey
 
      Range("F5").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = True
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
 
End Sub