تجميع عامود طويل في صفحة

[حسن العسوس]

السلام عليكم

كيف اقوم بتجميع عامود طويل في صفحة اكسل لتسهيل الطباعة

جزاكم الله خيرا

Refx.xls

تم تعديل أغسطس 3, 2019 بواسطه حسن العسوس

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

Sub Facilite_table()
Dim i%, col%, R%, How_many
How_many = InputBox("How Many Columns Do You Want")
Range("c1").CurrentRegion.ClearContents
i = 1: col = 3: R = 1
Do Until Range("a" & i) = vbNullString
 Cells(R, col) = Range("a" & i)
  R = R + 1
  If R > How_many Then col = col + 1: R = 1
   i = i + 1
Loop
Range("c1").CurrentRegion.Columns.AutoFit
  End Sub