חלוקת טור ארוך באקסל למספר עמודות.

[.H.C]

בוקר טוב!
יש לי עמודה ארוכה מאוד (מאות תאים) באקסל
אני מעוניינת להדפיס אותו בכמה שפחות עמודים
ז"א שיתחלק לי לכמה שיותר עמודות בעמוד
יש דרך? אין אפשרות לעשות זאת ידני!!!!
אשמח להדרכת המומחים
תודה

[כוכב שמח]

@h-c להעתיק מאקסל, להדביק בוורד על שני טורים או יותר, ולהדפיס.

[מלא]

@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

מקור והוראות כאן. (באנגלית)

תודה על השאלה, הרבה פעמים אני צריך כזה דבר, ועובר הלאה, עכשיו יש לי קיצור דרך.

[כוכב שמח]

@מלא

@מלא אמר בחלוקת טור ארוך באקסל למספר עמודות.:
מקור והוראות כאן. (באנגלית)

אם הבנת מה ההוראות נא תכתוב כאן לתועלת הציבור.

תודה על השאלה, הרבה פעמים אני צריך כזה דבר, ועובר הלאה, עכשיו יש לי קיצור דרך.

מי כעמך ישראל!!!
בשביל עצמך אין לך זמן לחפש פתרון אבל כשזה מגיע לחסד אתה עושה את זה. אכן מי כעמך ישראל.

[.H.C]

@כוכב-שמח אמר בחלוקת טור ארוך באקסל למספר עמודות.:

@h-c להעתיק מאקסל, להדביק בוורד על שני טורים או יותר, ולהדפיס.

תודה!

[מלא]

@כוכב-שמח
כאן מצורף קובץ אקסל עם הפונקציה.
הקובץ הוא מסוג xlsm בעת הפתיחה יוצג פס צהוב מעל הגליון, יש לאשר מהימנות בקובץ [לא לפחד לא הכנסתי שם וירוס]
אחרי פתיחת הקובץ, יש להיכנס לכרטיסיה 'תצוגה' בסוף יש לחצן 'פקודות מאקרו'
לחיצה על זה יפתח תפריט קטן יש לבחור ב 'הצג פקודות מאקרו'
ייפתח חלון ובו יש רשימה ללחוץ פעמיים על 'חלוקה'

יקפצו שלש חלונות,
בראשון יש לבחור את הטווח לחלוקה,
בשני יש לכתוב לו מספר השורות שיכניס בכל עמודה [עמוד A4 הוא בין 30 ל40 תלוי בשוליים ובגודל]
בשלישי יש לתת לו תא מהיכן להתחיל את הפיצול.
וזהו, הקובץ מוכן להדפסה.

0_1531318175604_חלוקת עמודה רציפה לעמודות באקסל.xlsm

[.H.C]

@מלא אמר בחלוקת טור ארוך באקסל למספר עמודות.:

@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

מקור והוראות כאן. (באנגלית)

תודה על השאלה, הרבה פעמים אני צריך כזה דבר, ועובר הלאה, עכשיו יש לי קיצור דרך.

יישר כח עצום!!

התקנתי את התוסף ופעלתי על פיו.
מה שכן -
הוא מחלק לי את הטור בצורה רוחבית.
ז"א, תא 2 נהפך לעמודה B, תא 3 לעמודה C,
ומה שאני רוצה זה שהתאים יסודרו בצורה שונה: ז"א תא 2 ישאר ב2, ותא 3 ישאר ב3, ורק נגיד תא 20 יעבור לעמוד B, וכן הלאה, תא 40 לעמודה C וכו'.
כביכול חלוקה שכל 20 תאים עוברים לטור הבא.
כיצד יוצרים את החלוקה הזו???

[מלא]

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

הוא מחלק לי את הטור בצורה רוחבית.
ז"א, תא 2 נהפך לעמודה B, תא 3 לעמודה C,
ומה שאני רוצה זה שהתאים יסודרו בצורה שונה: ז"א תא 2 ישאר ב2, ותא 3 ישאר ב3, ורק נגיד תא 20 יעבור לעמוד B, וכן הלאה, תא 40 לעמודה C וכו'.
כביכול חלוקה שכל 20 תאים עוברים לטור הבא.

הורדת מהאתר? יש שם שני סוגים אחד לעמודות ואחד לשורות.

תוריד את הקובץ שאני העליתי בהודעה השניה,
תעתיק לתוכו את העמודה שלך. וכו' ע"פ ההוראות

[.H.C]

פוסט זה נמחק!

[dovid]

אבל מה רע בוורד עם טורים?

[.H.C]

@מלא אמר בחלוקת טור ארוך באקסל למספר עמודות.:

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

הוא מחלק לי את הטור בצורה רוחבית.
ז"א, תא 2 נהפך לעמודה B, תא 3 לעמודה C,
ומה שאני רוצה זה שהתאים יסודרו בצורה שונה: ז"א תא 2 ישאר ב2, ותא 3 ישאר ב3, ורק נגיד תא 20 יעבור לעמוד B, וכן הלאה, תא 40 לעמודה C וכו'.
כביכול חלוקה שכל 20 תאים עוברים לטור הבא.

הורדת מהאתר? יש שם שני סוגים אחד לעמודות ואחד לשורות.

תוריד את הקובץ שאני העליתי בהודעה השניה,
תעתיק לתוכו את העמודה שלך. וכו' ע"פ ההוראות

סליחה, ראיתי עכשיו את ההודעה השניה ששלחת, עם הקובץ שהעלית.
יישר כח עצום עצום!!!
זה עוזר לי מאד!!

מה שכן-
איך מוחקים את הטור הבסיסי? (ז"א ממקום החלוקה ואילך?)

[.H.C]

@dovid אמר בחלוקת טור ארוך באקסל למספר עמודות.:

אבל מה רע בוורד עם טורים?

די בעייתי להעביר את הטקסט הזה,
מדובר בהמון המון תאים.

[מלא]

@dovid
א. לא חשבתי על זה אף פעם,
ב. מה רע בפונקציה שעושה את זה בשניה?

[מלא]

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

איך מוחקים את הטור הבסיסי? (ז"א ממקום החלוקה ואילך?)

לוחצים על האות האנגלית שמעל העמודה > לחיצה ימנית > מחק.

[dovid]

@מלא אמר בחלוקת טור ארוך באקסל למספר עמודות.:

ב. מה רע בפונקציה שעושה את זה בשניה?

כי זה משנה את הגיליון - בלגן.

[.H.C]

@מלא אמר בחלוקת טור ארוך באקסל למספר עמודות.:

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

איך מוחקים את הטור הבסיסי? (ז"א ממקום החלוקה ואילך?)

לוחצים על האות האנגלית שמעל העמודה > לחיצה ימנית > מחק.

אין לי מילים!!!
מן השמים ישולם שכרכם
יישר כח עצום!

[כוכב שמח]

@H-C @dovid @מלא
א. יש חיסרון גדול בפונקציה הזו שזה עובד רק על עמודה אחת, אבל במקרה שיש שתי עמודות כגון עמודה אחת לשם פרטי ושניה של שם משפחה, זה לא עובד.
ב. מעלה נוספת בלהעתיק לוורד שאין צורך לנחש את מספר השורות שרוצים לחלק. אבל זה רק ענין של נוחות.

[miro]

@כוכב-שמח אמר בחלוקת טור ארוך באקסל למספר עמודות.:

א. יש חיסרון גדול בפונקציה הזו שזה עובד רק על עמודה אחת, אבל במקרה שיש שתי עמודות כגון עמודה אחת לשם פרטי ושניה של שם משפחה, זה לא עובד.
ב. מעלה נוספת בלהעתיק לוורד שאין צורך לנחש את מספר השורות שרוצים לחלק. אבל זה רק ענין של נוחות.

בפונקציה הזאת אתה יכול לבחור איזה עמודה ברצונך להעביר אתה יכול קודם כל להעביר את העמודה ה2 ואח"כ רק להעביר את ה1.
חוץ מזה שיש נוסחה פשוטה לאתר כמה שורות יש לך בעמודה.

[כוכב שמח]

@miro א. מה יעזור להעביר קודם עמודה אחת אם אנחנו רוצים שעמודה ב' תהיה סמוכה לעמודה א' גם אחרי החלוקה. ורק לגזור ולהדביק ולגזור שוב ולהדביק שוב, נו... כבר לא יותר פשוט בוורד.
ב. כשיש שתי עמודות זה גם נהיה מסובך מצד ההדפסה שיהיה ברור שעמודה 3 ו4 היא המשך של הרשימה ולא טבלה אחת ארוכה.
ג. הפונקציות האלו טובות למי שמבין בקוד, אבל יש גם אנשים שלא מבינים בזה. (גילוי נאות: אני לא מבין).

[אלי TZA]

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

יישר כח עצום!!

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

יישר כח עצום עצום!!!
זה עוזר לי מאד!!

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

אין לי מילים!!!
מן השמים ישולם שכרכם
יישר כח עצום!

אם אתה רוצה להודות על הודעה מסויימת לחץ בתחתיתה על כפתור זה: