[حل شده] ترکیب متن یک سلول ( عنوان) با موضوعات ذیل خود (زیر عنوانها)

[bnyamin]

سلام وقت بخیر
ستونهایی دارای یک سر عنوان است میخواهم اگر در ذیل این عنوانها سلولهایی دارای اطلاعات باشند ؛ عنوان مطروحه در اول متن آن سلولی که اطلاعت در آن قرار دارد اضافه گردد

[iranweld]

با سلام


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

Sub test()

lastColumn = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column

For j = 1 To lastColumn

xx = Application.CountA(Columns(j))

If xx > 1 Then

z1 = Cells(1, j).End(xlDown).Row

z2 = Cells(Rows.Count, j).End(xlUp).Row

z3 = Cells(1, j).End(xlDown)

For i = z1 + 1 To z2

If Cells(i, j) <> "" Then

Cells(i, j) = z3 & ": " & Cells(i, j)

End If

Next

End If

Next

End Sub