בקשת מידע | פיצול תאים

[שלמה11]

@תלת-פאזי הנה קוד פשוט שמחלק את התא הנבחר
וכן קוד שמקבץ ערך של תאים

Sub חלוקת_ערך_תא_לתאים()
    Dim pritim() As String
    Dim parit As String
    Dim forStep As Integer
    
    pritim = Split(ActiveCell.Text, " ")
    forStep = InputBox("הזן את מספר הפריטים בכל תא")
    For i = LBound(pritim) To UBound(pritim)
        If i Mod forStep = 0 Then
            ActiveCell.Offset(0, i / forStep).Value = parit
            parit = ""
        End If
        parit = parit & " " & pritim(i)
    Next i
    ActiveCell.Offset(0, i / forStep).Value = parit

End Sub
Sub קיבוץ_ערך_תאים()
    Dim parit As String
    Dim forStep As Integer
    
    forStep = InputBox("הזן את מספר התאים שברצונך לקבץ")
    For i = 0 To forStep
        parit = parit & ActiveCell.Offset(0, i).Value
        ActiveCell.Offset(0, i).Value = ""
    Next i
    ActiveCell.Value = parit
End Sub

[ע"ה דכו"ע]

@תלת-פאזי כתב בבקשת מידע | פיצול תאים:

@ע-ה-דכו-ע כתב בבקשת מידע | פיצול תאים:

Spoiler

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

אתה ניסית את זה?

אני ניסיתי ועבד יופי.

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

אפשר ככה (לגרור את זה על כמה תאים שצריך).

=TEXTJOIN(",",TRUE,INDEX($A$1:$Z$1, (COLUMN(A1)-1)*5+1) : INDEX($A$1:$Z$1, (COLUMN(A1)-1)*5+5))

[תלת פאזי]

@שלמה11 כתב בבקשת מידע | פיצול תאים:

@תלת-פאזי הנה קוד פשוט שמחלק את התא הנבחר
וכן קוד שמקבץ ערך של תאים

Sub חלוקת_ערך_תא_לתאים()
    Dim pritim() As String
    Dim parit As String
    Dim forStep As Integer
    
    pritim = Split(ActiveCell.Text, " ")
    forStep = InputBox("הזן את מספר הפריטים בכל תא")
    For i = LBound(pritim) To UBound(pritim)
        If i Mod forStep = 0 Then
            ActiveCell.Offset(0, i / forStep).Value = parit
            parit = ""
        End If
        parit = parit & " " & pritim(i)
    Next i
    ActiveCell.Offset(0, i / forStep).Value = parit

End Sub
Sub קיבוץ_ערך_תאים()
    Dim parit As String
    Dim forStep As Integer
    
    forStep = InputBox("הזן את מספר התאים שברצונך לקבץ")
    For i = 0 To forStep
        parit = parit & ActiveCell.Offset(0, i).Value
        ActiveCell.Offset(0, i).Value = ""
    Next i
    ActiveCell.Value = parit
End Sub

איך ואיפה אני מדביק את הקוד?
וכן היכן מתחיל ונגמר כל קוד?

[תלת פאזי]

@ע-ה-דכו-ע כתב בבקשת מידע | פיצול תאים:

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

אפשר ככה (לגרור את זה על כמה תאים שצריך).

=TEXTJOIN(",",TRUE,INDEX($A$1:$Z$1, (COLUMN(A1)-1)*5+1) : INDEX($A$1:$Z$1, (COLUMN(A1)-1)*5+5))

זה עובד יופי, אך רק על 4 תאים הראשונים אח"כ מופיע לי שגיאה:

[ע"ה דכו"ע]

@תלת-פאזי כתב בבקשת מידע | פיצול תאים:

@ע-ה-דכו-ע כתב בבקשת מידע | פיצול תאים:

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

אפשר ככה (לגרור את זה על כמה תאים שצריך).

=TEXTJOIN(",",TRUE,INDEX($A$1:$Z$1, (COLUMN(A1)-1)*5+1) : INDEX($A$1:$Z$1, (COLUMN(A1)-1)*5+5))

זה עובד יופי, אך רק על 4 תאים הראשונים אח"כ מופיע לי שגיאה:

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

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

[תלת פאזי]

@ע-ה-דכו-ע כתב בבקשת מידע | פיצול תאים:

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

שגיאה
הערך 30 של פונקציה INDEX
פרמטר 3 הוא מחוץ לתחום.

@ע-ה-דכו-ע כתב בבקשת מידע | פיצול תאים:

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

פונקציה לא ידועה: 'TEXTSPLIT'.

[תלת פאזי]

@תלת-פאזי כתב בבקשת מידע | פיצול תאים:

@ע-ה-דכו-ע כתב בבקשת מידע | פיצול תאים:

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

פונקציה לא ידועה: 'TEXTSPLIT'.

תודה רבה!
בתחילה באמת ניסתי לשים בתא: B1
והבנתי שזה טעות.

אך גם כעת ששמתי בתא A2- בשיטס זה לא עובד לי אך בExcel זה כן עובד!

תודה רבה!

[תלת פאזי]

@תלת-פאזי כתב בבקשת מידע | פיצול תאים:

אך גם כעת ששמתי בתא A2- בשיטס זה לא עובד לי אך בExcel זה כן עובד!

וגם כאשר העליתי את הקובץ שעובד ודרייב ואני פותח אותו בשיטס- הוא לא עובד!

[מענין לשמוע]

@תלת-פאזי
קובץ עם מה שאתה מבקש.
חוברת1.xlsx

Spoiler

למתענינים: בינה אנושית...

[975]

@מענין-לשמוע כתב בבקשת מידע | פיצול תאים:

קובץ עם מה שאתה מבקש.

יפה מאוד!!

כאן אפשר לחלק לפי מספר המילים שרוצים.