@מלא אמר בחלוקת טור ארוך באקסל למספר עמודות.:
@H-C הנה פונקציה שעושה את זה באופן נפלא.
Sub SplitColumn()
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("טווח לחלוקה:", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("שורות בעמודה:", xTitleId)
Set OutRng = Application.InputBox("בחר תא לעמודה ראשונה:", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
מקור והוראות כאן. (באנגלית)
תודה על השאלה, הרבה פעמים אני צריך כזה דבר, ועובר הלאה, עכשיו יש לי קיצור דרך.
יישר כח עצום!!
![:+1: 👍](https://tchumim.com/assets/plugins/nodebb-plugin-emoji/emoji/android/1f44d.png?v=idrab8ivb8s)
התקנתי את התוסף ופעלתי על פיו.
מה שכן -
הוא מחלק לי את הטור בצורה רוחבית.
ז"א, תא 2 נהפך לעמודה B, תא 3 לעמודה C,
ומה שאני רוצה זה שהתאים יסודרו בצורה שונה: ז"א תא 2 ישאר ב2, ותא 3 ישאר ב3, ורק נגיד תא 20 יעבור לעמוד B, וכן הלאה, תא 40 לעמודה C וכו'.
כביכול חלוקה שכל 20 תאים עוברים לטור הבא.
כיצד יוצרים את החלוקה הזו???