כיצד להוסיף קידומת או סיומת לטווח תאים ב-Excel?

פונקציית ה-concatenate של Excel יכולה להכניס קידומת או סיומת לתא בודד במהירות.

1הזן את הפונקציה של =CONCATENATE("אוכל - ",A1) בתא ריק, למשל תא C1, ואז גרור את ידית האוטומטיקה של תא זה על פני הטווח שברצונך למלא. וכל התאים נוספו להם הקידומת המסוימת. ראה צילום מסך:. ראה צילום מסך:

אתה יכול להשתמש בפונקציית concatenate כדי להכניס קידומת, סיומת או שניהם יחדיו באופן הבא:

ייתכן שאתה לא מכיר את הפונקציות ואת קוד ה-VBA ב-Excel. והユーティリティ Add Text של Kutools עבור Excel יעזור לך להכניס קידומת או סיומת לכל טווח שנבחר במהירות.

1.  בחר את התאים שברצונך להוסיף להם קידומת או סיומת, ולחץ  Kutools > טקסט > הוסף טקסט.

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

ניתן גם להתמודד עם הבעיה הזו עם הקוד הבא של VBA:

1. בחר את הטווח שברצונך להוסיף לו את הקידומת או הסיומת.

2. לחץ על מפתח > Visual Basic, וחלון חדש של Microsoft Visual Basic עבור יישומים יוצג, לחץ על Insert > Module, ולאחר מכן הקלד את הקוד הבא:

Sub AddTextOnLeft()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = addStr & Rng.Value
Next
End Sub

Sub AddTextOnRight()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = Rng.Value & addStr
Next
End Sub

3. לאחר מכן לחץ על כפתור Run או הקש את מקש F5 כדי להריץ את VBA.

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

הוסף טקסט להתחלה או לסוף של כל התאים

הוסף מחרוזות טקסט לכמה תאים

הוסף אפסים מובילים למספרים או טקסט