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

[ע"ה דכו"ע]

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

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

=BYCOL(WRAPCOLS(TEXTSPLIT(A1," "), 5, ""), LAMBDA(col, TEXTJOIN(" ", TRUE, col)))

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

איזה אופיס יש לך? יכול להיות שבישנים זה לא תואם.

[975]

@תלת-פאזי כתב

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

עם זה

עקרוני אפשר עם טקסט לעמודות בלשונית נתונים

ניסית? או שזה לא טוב

[תלת פאזי]

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

איזה אופיס יש לך? יכול להיות שבישנים זה לא תואם.

אופיס 365
וגם בשיטס

[תלת פאזי]

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

ניסית? או שזה לא טוב

זה נותן לי או כל אחד בעמודה בפני עצמו, או במרווחים ידנית- ואז אני אצטרך לעבוד על מאות עמודות

[תלת פאזי]

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

סליחה על הצורה - אבל זה מה שג'ימיני כתב לי -
פשוט כתבת שהפתרון של @ ע-ה-דכו-ע לא עבד.

ב"ה הבינה שה' חנן אותי [על אף שהיא פחות מהבינה של אישתי]
ידעתי את כל מה ש... מלאכותי שלך כתב
לא בשביל זה נפתח הפורום.

[תלת פאזי]

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

Spoiler

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

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

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

[שלמה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 תאים הראשונים אח"כ מופיע לי שגיאה:

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

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