יש לי טבלה באקסל . אני רוצה שכל הנתונים יהיו בעמודה אחת (לא איחוד תאים אלא שכל עמודה תהיה המשך לעמודה הראשונה) איך עושים

[ek0583232948]

תודה

[רחמים]

אתה מתכוון למיזוג תאים?

[מלא]

@ek0583232948
בכמה עמודות מדובר?
כנראה שגזור-הדבק הפתרון.

אם תעמוד בתא הראשון בעמודה,
ותחלץ על קונטרול+שיפט+חץ למטה,
הוא בוחר עד סוף תוכן העמודה.
תלחץ קונטרול + X
תלך לסוף העמודה הראשונה - כדי להגיע לסוף העמודה לחץ קונטרול + חץ למטה, ככה תגיע לסוף הנתונים שבעמודה.
ואנטר עושה הדבקה.
ככה העבודה תהיה יותר קלה ומהירה.

---

עריכה:
אם אתה מבין במאקרו אז קח מאקרו שתעשה את זה

Sub SingleColumn()
Dim CurSh As Worksheet, NewSh As Worksheet, Rng As Range, Col As Long

Set CurSh = ActiveSheet
Set NewSh = Sheets.Add
CurSh.Activate
Set Rng = Application.Intersect(Selection, CurSh.UsedRange)

For Col = 1 To Selection.Columns.Count
Rng.Range(Cells(1, Col), Cells(Rng.Rows.Count, Col)).Copy NewSh.Range("a65536").End(xlUp).Offset(1, 0)
Next Col
End Sub

מקור

[OdedDvir]

בהנחה שכוונתך היא: ליצור עמודה שמכילה את כל העמודות שלפניה -
הפתרון המומלץ תלוי במספר העמודות שברצונך לאחד:

1. למספר קטן של עמודות (נניח 3) תוסיף עמודה בסוף ותרשום בה נוסחא:

=CONCATENATE(A2,B2,C2)

או אם אתה רוצה רווח בין הערכים:

=CONCATENATE(A2," ",B2," ", C2)

שים לב שאם תמחק את העמודות A,B,C גם העמודה המחוברת תימחק.
כדי לפתור את הבעיה תוכל לגזור אותה ולהדביק אותה שוב (הדבקה מיוחדת) כ"ערכים" - ואז היא תישאר.

2. למספר גדול של עמודות צריך להיות קצת יותר יצירתי:
   א. אפשר להעתיק את כל העמודות, ולהדביק בפנקס רשימות, ולהחליף את כל הטאבים בתו רווח (או בכלום אם רוצים ללא רווחים) ואחרי כן להעתיק את הכל ולהדביק בחזרה באקסל בעמודה אחת.
   ב. אפשר לשמור כקובץ CSV, ולפתוח בפנקס רשומות ולהחליף את כל הפסיקים "," בתו רווח " " (או בכלום אם רוצים ללא רווחים), לשמור, ולפתוח שוב באקסל.

3. למקרה של קבצים מרובים כדאי להשתמש בקוד, כגון מה שהביאו לעיל.

[ek0583232948]

תודה רבה לכולם

[בערל]

@ek0583232948
להבא, בבקשה לקצר בכותרת ולפרט בהודעה.