Excel เพิ่มข้อความและตัวเลขในตำแหน่งที่ระบุของเซลล์

ใน Excel การเพิ่มข้อความหรือตัวเลขลงในเซลล์เป็นงานทั่วไป เช่น การเว้นวรรคระหว่างชื่อ การเติมคำนำหน้าหรือส่วนต่อท้ายเซลล์ การใส่ขีดกลางในตัวเลขทางสังคม ในบทช่วยสอนนี้ จะแสดงรายการสถานการณ์การเพิ่มเกือบทั้งหมดใน Excel และมีวิธีการที่เกี่ยวข้องสำหรับคุณ

หมายเหตุ

ในบทช่วยสอนนี้ ฉันสร้างตัวอย่างเพื่ออธิบายวิธีการต่างๆ คุณสามารถเปลี่ยนข้อมูลอ้างอิงที่คุณต้องการได้เมื่อคุณใช้โค้ดหรือสูตร VBA ด้านล่าง หรือคุณสามารถดาวน์โหลดตัวอย่างเพื่อลองใช้วิธีต่างๆ ได้โดยตรง

คลิกเพื่อดาวน์โหลดไฟล์ตัวอย่าง

ส่วนนี้แสดงวิธีการต่าง ๆ ในการเพิ่มอักขระที่จุดเริ่มต้นของแต่ละเซลล์ดังที่แสดงด้านล่าง:

1.1 เพิ่มที่จุดเริ่มต้นของเซลล์โดยใช้สูตร

ที่นี่คุณสามารถเลือกหนึ่งในสามสูตรด้านล่าง:

Formula1 Concatenate โอเปอเรเตอร์ "&"

รวมหลายข้อความเข้าด้วยกันโดยใช้เครื่องหมาย "&"

"ข้อความ"&เซลล์

ฟังก์ชัน Formula2 CONCATENATE

ฟังก์ชัน CONCATENATE ใช้สำหรับเชื่อมข้อความเข้าด้วยกัน

CONCATENATE("ข้อความ",เซลล์)

ฟังก์ชัน CONCAT Formula3

นี่คือฟังก์ชันใหม่ที่ปรากฏใน Excel 2019, Office 365 และ Excel ทางออนไลน์เท่านั้น

CONCAT("ข้อความ",เซลล์)

ในสูตรทั่วไป: เซลล์คือการอ้างอิงเซลล์ไปยังข้อความที่คุณต้องการเพิ่มคำนำหน้า และข้อความคือข้อความที่ใช้ในการเพิ่มลงในเซลล์

จากตัวอย่างข้างต้น คุณสามารถใช้สูตรในแถบสูตรได้ดังนี้:

"&"

=$E$3&B3 or ="ไอโฟน"&B3

ฟังก์ชัน CONCATENATE

= เชื่อมต่อ($E$3,B3) or =CONCATENATE("ไอโฟน",B3)

ฟังก์ชัน CONCAT

=คอนแคต($E$3,B3) or =CONCAT("ไอโฟน",B3)

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์ จากนั้นลากที่จับป้อนอัตโนมัติลงเพื่อเพิ่มข้อความลงในแต่ละเซลล์ของช่วง B3:B6

1.2 เพิ่มที่จุดเริ่มต้นของเซลล์โดย Flash Fill

ถ้าคุณอยู่ใน Excel 2013 หรือเวอร์ชันที่ใหม่กว่า คุณลักษณะใหม่ที่มีประสิทธิภาพ เติม Flash, สามารถเติมเซลล์ตามเซลล์ด้านบนที่คุณป้อนโดยอัตโนมัติ

เลือกเซลล์ที่อยู่ถัดจากข้อมูลต้นฉบับแรก พิมพ์ข้อมูลแรกด้วยตนเองด้วยข้อความนำหน้าดังที่แสดงด้านล่าง:

จากนั้นในเซลล์ด้านล่าง ให้พิมพ์ข้อมูลที่สองต่อด้วยข้อความนำหน้า ในระหว่างพิมพ์ รายการที่เป็นสีเทาจะแสดงขึ้น ให้กด เข้าสู่ คีย์เพื่อให้ Flash Fill กรอกข้อมูลโดยอัตโนมัติ

หากรายการตัวอย่างไม่สร้าง โปรดไปที่แท็บหน้าแรกแล้วคลิก ใส่ > เติม Flash เพื่อเรียกใช้ด้วยตนเอง

1.3 เพิ่มที่จุดเริ่มต้นของเซลล์โดยใช้รหัส VBA

หากคุณคุ้นเคยกับโค้ด VBA ขอแนะนำให้ใช้โค้ด VBA เพื่อเพิ่มข้อความที่จุดเริ่มต้นของแต่ละเซลล์ในช่วง

1. เลือกช่วงของเซลล์ที่คุณต้องการเพิ่มข้อความนำหน้า จากนั้นกด อื่น ๆ + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นในหน้าต่างป๊อปอัป ให้คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อแทรกโมดูลใหม่ที่ว่างเปล่า

3. คัดลอกและวางโค้ด VBA ด้านล่างลงในโมดูลใหม่

VBA: เพิ่มที่จุดเริ่มต้นของเซลล์

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub

4 กด F5 คีย์หรือคลิก วิ่ง ปุ่ม  ในหน้าต่างเพื่อเปิดใช้งานโค้ด VBA

ตอนนี้เซลล์ที่เลือกทั้งหมดได้รับการเพิ่มข้อความ "iPhone" ที่จุดเริ่มต้น

ยกเว้นการเพิ่มข้อความที่จุดเริ่มต้นของเซลล์ การเพิ่มข้อความที่ส่วนท้ายของเซลล์ก็เป็นเรื่องปกติเช่นกัน ที่นี่เราใช้การเพิ่มหน่วยที่ส่วนท้ายของแต่ละเซลล์เพื่อดูตัวอย่างดังภาพด้านล่าง:

2.1 เพิ่มที่ส่วนท้ายของเซลล์โดยใช้สูตร

ที่นี่คุณสามารถเลือกหนึ่งในสามสูตรด้านล่าง:

Formula1 Concatenate โอเปอเรเตอร์ "&"

รวมหลายข้อความเข้าด้วยกันโดยใช้เครื่องหมาย "&"

เซลล์&"ข้อความ"

ฟังก์ชัน Formula2 CONCATENATE

ฟังก์ชัน CONCATENATE ใช้สำหรับเชื่อมข้อความเข้าด้วยกัน

CONCATENATE(เซลล์,"ข้อความ")

ฟังก์ชัน CONCAT Formula3

นี่คือฟังก์ชันใหม่ที่ปรากฏใน Excel 2019, Office 365 และ Excel ทางออนไลน์เท่านั้น

CONCAT(เซลล์,"ข้อความ")

ในสูตรทั่วไป: เซลล์คือการอ้างอิงเซลล์ไปยังข้อความที่คุณต้องการเพิ่มส่วนต่อท้าย และข้อความคือข้อความที่ใช้เพื่อเพิ่มลงในเซลล์

จากตัวอย่างข้างต้น คุณสามารถใช้สูตรในแถบสูตรได้ดังนี้:

"&"

=B3&$E$3 or =B3&"กก."

ฟังก์ชัน CONCATENATE

= เชื่อมต่อ (B3, $E$3) or =CONCATENATE(B3, "Kg")

ฟังก์ชัน CONCAT

=CONCAT(B3, $E$3) or =CONCAT(B3, "กก.")

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์ จากนั้นลากที่จับป้อนอัตโนมัติลงเพื่อเพิ่มข้อความที่ส่วนท้ายของแต่ละเซลล์ของช่วง B3:B6

2.2 เพิ่มที่ส่วนท้ายของเซลล์โดย Flash Fill

ถ้าคุณอยู่ใน Excel 2013 หรือเวอร์ชันที่ใหม่กว่า คุณลักษณะใหม่ที่มีประสิทธิภาพ เติม Flash, สามารถเติมเซลล์ตามเซลล์ด้านบนที่คุณป้อนโดยอัตโนมัติ

เลือกเซลล์ถัดจากข้อมูลต้นฉบับแรก พิมพ์ข้อมูลแรกด้วยตนเองด้วยข้อความต่อท้ายที่แสดงด้านล่าง:

จากนั้นเปิดใช้งานเซลล์ภายใต้ผลลัพธ์แรก คลิก ข้อมูล > เติม Flashเซลล์ด้านล่างทั้งหมดรวมถึงเซลล์ที่ใช้งานอยู่จะถูกเติมโดยอัตโนมัติ

2.3 เพิ่มที่ส่วนท้ายของเซลล์โดยใช้รหัส VBA

นี่คือรหัส VBA ที่สามารถเพิ่มข้อความที่ส่วนท้ายของแต่ละเซลล์ในช่วง

1. เลือกช่วงของเซลล์ที่คุณต้องการเพิ่มข้อความต่อท้าย จากนั้นกด อื่น ๆ + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นในหน้าต่างป๊อปอัป ให้คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อแทรกโมดูลใหม่ที่ว่างเปล่า

3. คัดลอกและวางโค้ด VBA ด้านล่างลงในโมดูลใหม่

VBA: เพิ่มที่ส่วนท้ายของเซลล์

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub

4 กด F5 คีย์หรือคลิก วิ่ง ปุ่ม  ในหน้าต่างเพื่อเปิดใช้งานโค้ด VBA

ขณะนี้มีการเพิ่มข้อความ "Kg" ที่ส่วนท้ายของแต่ละเซลล์แล้ว

สำหรับพวกคุณส่วนใหญ่ การเพิ่มข้อความที่จุดเริ่มต้นหรือจุดสิ้นสุดของเซลล์นั้นง่าย แต่การเพิ่มข้อความลงในเซลล์ตรงกลางอาจค่อนข้างยาก ยกตัวอย่างดังภาพด้านล่างที่แสดงภาพหน้าจอ การเพิ่มตัวคั่น เช่น โคลอน : ที่ส่วนท้ายของอักขระตัวที่สองของแต่ละเซลล์ในช่วง B3:B7

3.1 เพิ่มหลังอักขระที่ n ของสตริงตามสูตร

มีสี่สูตรให้คุณจัดการกับงานนี้ เลือกใช้หนึ่งสูตร:

Formula1 รวมฟังก์ชัน LEFT และ RIGHT

LEFT(เซลล์, n) & "ข้อความ" & RIGHT(เซลล์, LEN(เซลล์) -n)

Formula2 COMBINE CONCATENATE(CONCAT) ฟังก์ชัน RIGHT และ LEN

CONCATENATE(ซ้าย(เซลล์, n), "ข้อความ", ขวา(เซลล์, LEN(เซลล์) -n))

Or

CONCAT(LEFT(cell, n), "text", RIGHT(cell, LEN(cell) -n))

ฟังก์ชัน Formula3 REPLACE

REPLACE(เซลล์, n+1, 0, "ข้อความ")

ในสูตรทั่วไป: เซลล์คือการอ้างอิงเซลล์ไปยังข้อความที่คุณต้องการเพิ่มข้อความตรงกลาง และข้อความคือข้อความที่ใช้ในการเพิ่มลงในเซลล์ n คือตัวเลขที่กำหนดหลังจากอักขระในสตริงข้อความที่คุณต้องการ เพิ่มข้อความ

สำหรับการแก้ปัญหาที่กล่าวมาข้างต้น โปรดใช้สูตรดังนี้:

รวมฟังก์ชัน LEFT และ RIGHT เข้าด้วยกัน

=LEFT(B3, 2) & ":" & RIGHT(B3, LEN(B3) -2) or =LEFT(B3, 2) & $E$3 & RIGHT(B3, LEN(B3) -2)

รวมฟังก์ชัน CONCATENATE(CONCAT), RIGHT และ LEN

=CONCATENATE(LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2)) or =CONCAT (LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2))

ฟังก์ชัน REPLACE

=แทนที่(B3, 2+1, 0, ":") or =แทนที่(B3, 2+1, 0, $E$3)

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์ จากนั้นลากที่จับป้อนอัตโนมัติลงเพื่อเพิ่มข้อความหลังอักขระตัวที่สองของแต่ละเซลล์ของช่วง B3:B7

3.2 เพิ่มหลังอักขระที่ n ของสตริงโดย Flash Fill

ถ้าคุณอยู่ใน Excel 2013 หรือเวอร์ชันที่ใหม่กว่า เติม Flash, สามารถเติมเซลล์ตามเซลล์ด้านบนที่คุณป้อนโดยอัตโนมัติ

เลือกเซลล์ที่อยู่ถัดจากข้อมูลดั้งเดิมรายการแรก พิมพ์ข้อมูลแรกด้วยตนเองด้วยเครื่องหมายทวิภาคหลังจากอักขระตัวที่สองดังที่แสดงด้านล่าง:

จากนั้นเปิดใช้งานเซลล์ภายใต้ผลลัพธ์แรกกด Ctrl + E กุญแจเพื่อเปิดใช้งาน เติม Flash คำสั่ง เซลล์ด้านล่างทั้งหมดรวมถึงเซลล์ที่ใช้งานอยู่จะถูกเติมโดยอัตโนมัติ

3.3 เพิ่มหลังอักขระที่ n ของสตริงโดยใช้โค้ด VBA

รหัส VBA สามารถทำงานนี้ได้เช่นกัน

1 กด อื่น ๆ + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นในหน้าต่างป๊อปอัป ให้คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อแทรกโมดูลใหม่ที่ว่างเปล่า

3. คัดลอกและวางโค้ด VBA ด้านล่างลงในโมดูลใหม่

VBA: เพิ่มตรงกลางเซลล์

Sub AddToMidduleOfString()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
    Next
End Sub

4 กด F5 คีย์หรือคลิก วิ่ง ปุ่ม  ในหน้าต่างเพื่อเปิดใช้งานโค้ด VBA กล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกเซลล์เพื่อเพิ่มข้อความ

5 คลิก OK. ตอนนี้ข้อความ ":" ถูกเพิ่มไว้หลังอักขระตัวที่สองของแต่ละเซลล์ในช่วง B19:B23

หากคุณเบื่อกับสูตรและ VBA คุณสามารถลองใช้เครื่องมือที่ทรงพลังและสะดวก Kutools สำหรับ Excelซึ่งสามารถช่วยคุณได้ เพิ่มข้อความ ลักษณะ

คุณลักษณะเพิ่มข้อความนี้สามารถ:

• เพิ่มข้อความก่อนตัวอักษรตัวแรก
• เพิ่มข้อความหลังอักขระตัวสุดท้าย
• เพิ่มข้อความในตำแหน่งที่ระบุ
• นามสกุล
  เพิ่มข้อความก่อนตัวพิมพ์ใหญ่
  ใส่ข้อความก่อนตัวพิมพ์เล็ก
  เพิ่มข้อความก่อนตัวพิมพ์ใหญ่/ตัวพิมพ์เล็ก
  เพิ่มข้อความก่อนอักขระตัวเลข

เลือกเซลล์ที่คุณต้องการเพิ่มข้อความ จากนั้นปรับใช้ เพิ่มข้อความ โดยคลิก Kutools > ข้อความ > เพิ่มข้อความ.

4.1 เพิ่มข้อความก่อนอักขระตัวแรกหรือหลังอักขระตัวสุดท้าย

ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร เพิ่มข้อความ ให้พิมพ์ข้อความที่คุณต้องการเพิ่มลงในเซลล์ใน ข้อความ กล่องข้อความ จากนั้นเลือก ก่อนอักขระตัวแรก ใน ตำแหน่ง มาตรา.

คลิก สมัครสมาชิก or Ok เพื่อสิ้นสุดการเพิ่ม

เมื่อต้องการเพิ่มข้อความหลังอักขระตัวสุดท้าย ให้พิมพ์ข้อความที่คุณต้องการเพิ่มลงในเซลล์ในช่อง ข้อความ กล่องข้อความ จากนั้นเลือก หลังจากอักขระตัวสุดท้าย ใน ตำแหน่ง มาตรา.

คลิก สมัครสมาชิก or Ok เพื่อสิ้นสุดการเพิ่ม

4.2 เพิ่มข้อความในตำแหน่งที่ระบุ

บางครั้ง คุณอาจต้องการเพิ่มข้อความตรงกลางเซลล์ หรือเพิ่มข้อความไปยังตำแหน่งต่างๆ ของเซลล์ สมมติว่าเพิ่มตัวคั่น "-" หลังหลักที่สามและเจ็ดของหมายเลขโซเชียลดังที่แสดงด้านล่าง:

ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร เพิ่มข้อความ กล่องโต้ตอบ พิมพ์ข้อความลงใน ข้อความ กล่องข้อความและเลือก ระบุ จากนั้นพิมพ์ตำแหน่งโดยใช้เครื่องหมายจุลภาคเพื่อแยกในกล่องข้อความแล้วคลิก Ok or สมัครสมาชิก.

4.3 ส่วนขยายของยูทิลิตี้เพิ่มข้อความ

นอกจากการเพิ่มข้อความในตำแหน่งปกติ (จุดเริ่มต้น สิ้นสุด และตำแหน่งที่ระบุ) แล้ว เพิ่มข้อความ ยูทิลิตี้ยังรองรับการเพิ่มข้อความ

• ก่อนอักษรตัวพิมพ์ใหญ่
• ก่อนตัวพิมพ์เล็ก
• ก่อนตัวพิมพ์ใหญ่/ตัวพิมพ์เล็ก
• ก่อนอักขระตัวเลข

ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร เพิ่มข้อความ กล่องโต้ตอบ พิมพ์ข้อความลงใน ข้อความ กล่องข้อความและเลือก เพิ่มเฉพาะ จากนั้นคลิกที่เมนูดรอปดาวน์ด้านล่างเพื่อเลือกการดำเนินการตามที่คุณต้องการ

ยกเว้น เพิ่มข้อความ คุณลักษณะ Kutools สำหรับ Excel มีคุณลักษณะที่เป็นประโยชน์อื่น ๆ มากกว่า 300 รายการซึ่งสามารถช่วยคุณในงานต่าง ๆ ของ Excel ดาวน์โหลดได้ฟรีทันที

ส่วนนี้มีสูตรในการเพิ่มข้อความก่อนหรือหลังข้อความที่ระบุใน Excel ปรากฏขึ้นครั้งแรก

5.1 เพิ่มข้อความก่อนข้อความเฉพาะตัวแรก

ตัวอย่างเช่น คุณต้องการเพิ่มข้อความ "(sale)" ก่อนข้อความแรก "price" ในเซลล์ดังภาพด้านล่าง:

ใน Excel ฟังก์ชัน REPLACE และ SUBSTITUTE สามารถแก้ปัญหานี้ได้

ฟังก์ชัน REPLACE

REPLACE(เซลล์,FIND("find_text",เซลล์),0,"add_text")

ฟังก์ชัน SUBSTITUTE

SUBSTITUTE(เซลล์,"find_text","replace_text",1)

ในกรณีนี้ โปรดใช้สูตรข้างต้นดังนี้:

=REPLACE(B4,FIND("ราคา",B4),0,"(ขาย)")

Or

=SUBSTITUTE(B4,"price","(sale)ราคา",1)

อาร์กิวเมนต์ของสูตรในกรณีนี้คือ

เซลล์: B4,

Find_text: ราคา,

Add_text: (ขาย)

Replace_text:(ลดราคา)ราคา.

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์การเพิ่มครั้งแรก จากนั้นลากจุดจับป้อนอัตโนมัติเหนือเซลล์ที่ต้องการสูตรนี้

5.2 เพิ่มข้อความหลังข้อความเฉพาะตัวแรก

ตัวอย่างเช่น คุณต้องการเพิ่มสัญลักษณ์สกุลเงิน "$" หลังเครื่องหมายทวิภาคแรก ":" ในเซลล์ดังภาพด้านล่าง:

ใน Excel ฟังก์ชัน REPLACE และ SUBSTITUTE สามารถแก้ปัญหานี้ได้

ฟังก์ชัน REPLACE

REPLACE(เซลล์,FIND("find_text",เซลล์),find_text_length,"replace_text")

ฟังก์ชัน SUBSTITUTE

SUBSTITUTE(เซลล์,"find_text","replace_text")

ในกรณีนี้ โปรดใช้สูตรข้างต้นดังนี้:

=แทนที่(B12,FIND(":",B12),1,":$")

Or

=แทนที่(B12,":",":$")

อาร์กิวเมนต์ของสูตรในกรณีนี้คือ

เซลล์: B12,

ค้นหาข้อความ: :,

แทนที่_ข้อความ::$

ค้นหา_ข้อความ_ความยาว:1

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์การเพิ่มครั้งแรก จากนั้นลากจุดจับป้อนอัตโนมัติเหนือเซลล์ที่ต้องการสูตรนี้

ในส่วนนี้ของบทช่วยสอน จะแนะนำวิธีการที่แตกต่างกันสามวิธี (สูตร ค้นหาและแทนที่ VBA) เพื่อช่วยคุณเพิ่มอักขระก่อนหรือหลังแต่ละคำในเซลล์

เพิ่มอักขระก่อนแต่ละคำ

เพิ่มอักขระหลังแต่ละคำ

6.1 เพิ่มอักขระก่อนหรือหลังแต่ละคำตามสูตร

ฟังก์ชัน SUBSTITUTE สามารถใช้เพื่อแก้ปัญหานี้ได้ สูตรทั่วไปดังนี้:

เติมก่อนแต่ละคำ

"ตัวอักษร"&แทนที่(สตริง, " "," อักขระ")

เพิ่มหลังแต่ละคำ

SUBSTITUTE(สตริง" ","อักขระ")&"อักขระ"

สมมติว่าเพิ่ม "+" ก่อนทุกคำในรายการ B3:B6 โปรดใช้สูตรดังนี้:

="+"&แทนที่(B3, " "," +")

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์แรก จากนั้นลากที่จับเติมอัตโนมัติลงเพื่อให้ได้ผลลัพธ์ทั้งหมด

สมมติว่าเพิ่ม ($) หลังแต่ละคำในรายการ B11:B14 โปรดใช้สูตรดังต่อไปนี้:

=SUBSTITUTE(B11," ","($) ")&"($)"

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์แรก จากนั้นลากที่จับเติมอัตโนมัติลงเพื่อให้ได้ผลลัพธ์ทั้งหมด

6.2 เพิ่มอักขระก่อนหรือหลังแต่ละคำโดยค้นหาและแทนที่

ถ้าคุณต้องการเพิ่มอักขระก่อนแต่ละคำยกเว้นคำแรกหรือเพิ่มอักขระหลังจากแต่ละคำยกเว้นคำสุดท้ายตามที่แสดงภาพหน้าจอด้านล่าง Excel ในตัว ค้นหาและแทนที่ ยูทิลิตี้สามารถจัดการงานนี้

เติมก่อนแต่ละคำ ยกเว้นคำแรก

เติมหลังแต่ละคำ ยกเว้นคำสุดท้าย

1. เลือกเซลล์ที่คุณต้องการเพิ่มอักขระก่อนหรือหลังแต่ละคำ จากนั้นกด Ctrl + H คีย์เพื่อเปิดใช้งานไฟล์ ค้นหาและแทนที่ โต้ตอบ

2. พิมพ์ช่องว่างลงใน สิ่งที่ค้นหา textbox แล้วพิมพ์อักขระใหม่โดยเว้นวรรคใน แทนที่ด้วย textbox และสุดท้ายให้คลิกที่ แทนที่ทั้งหมด ปุ่ม

มีโค้ด VBA สองโค้ดสำหรับการเพิ่มอักขระก่อนหรือหลังแต่ละคำ โปรดเรียกใช้โค้ดโดยทำตามขั้นตอนด้านล่าง

1 กด อื่น ๆ + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ในหน้าต่าง popping คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อแทรกโมดูลเปล่าใหม่

3. คัดลอกและวางโค้ด VBA ด้านล่างลงในโมดูล

เติมก่อนทุกคำ

Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
   
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = xInStr & Trim(xStr)
                Else
                    xValue = xValue & " " & xInStr & Trim(xStr)
                    End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

เพิ่มหลังทุกคำ

Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
 
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
   
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = Trim(xStr) & xInStr
                Else
                    xValue = xValue & " " & Trim(xStr) & xInStr
                End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

4 กด F5 คีย์เพื่อเรียกใช้รหัส (หรือคุณสามารถคลิก วิ่ง ปุ่ม   ) กล่องโต้ตอบจะปรากฏขึ้นเพื่อให้คุณเลือกเซลล์ต่อเนื่องที่จะทำงาน คลิก OK.

5. ในกล่องโต้ตอบที่ปรากฏขึ้นที่สอง ให้พิมพ์อักขระที่คุณต้องการเพิ่ม คลิก OK.

จากนั้นอักขระจะถูกเพิ่มที่ด้านหน้าหรือท้ายของแต่ละคำ

บางครั้ง คุณอาจต้องการเพิ่มข้อความระหว่างอักขระทุกตัว ในส่วนนี้ จะแสดงรายการสองสถานการณ์ หนึ่งคือการเพิ่มข้อความระหว่างอักขระทุกตัว อีกรายการหนึ่งคือการเพิ่มช่องว่างระหว่างแต่ละตัวเลข

7.1 เพิ่มข้อความระหว่างทุกตัวอักษร/หลักด้วยฟังก์ชัน User-Defined

ในการเพิ่มอักขระระหว่างอักขระทุกตัวในสตริง ฟังก์ชัน User-Defined สามารถช่วยคุณได้

ในกรณีนี้ เราเพิ่มช่องว่างระหว่างอักขระทุกตัว

1 กด อื่น ๆ + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ในหน้าต่าง popping คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อแทรกโมดูลเปล่าใหม่

3. คัดลอกและวางโค้ด VBA ด้านล่างลงในโมดูล

เพิ่มข้อความระหว่างตัวอักษร

Function AddText(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddText = AddText & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

4. บันทึกโค้ดและปิดหน้าต่างเพื่อกลับไปที่เวิร์กชีต จากนั้นพิมพ์สูตรด้านล่างลงในเซลล์ที่คุณต้องการวางผลการเพิ่ม

=เพิ่มข้อความ(B3)

B3 คือเซลล์ที่มีสตริงที่คุณต้องการเพิ่มช่องว่างระหว่างอักขระ

5 กด เข้าสู่ เพื่อให้ได้ผลลัพธ์ ลากที่จับเติมอัตโนมัติเหนือเซลล์เพื่อรับผลลัพธ์อื่นๆ ตามที่คุณต้องการ

7.2 เพิ่มช่องว่างระหว่างทุกตัวเลขด้วยสูตร

หากคุณต้องการเพิ่มช่องว่างระหว่างตัวเลขของสตริงที่เป็นค่าตัวเลข คุณสามารถใช้ฟังก์ชัน TEXT

สมมติว่านี่คือรายการตัวเลข 8 หลักในช่วง B10:B12 โปรดเลือกเซลล์ที่จะวางผลลัพธ์ พิมพ์สูตรด้านล่าง:

=TEXT(B10,"# # # # # # # #")

ข่าวประชาสัมพันธ์ เข้าสู่ คีย์ จากนั้นลากที่จับสำหรับป้อนอัตโนมัติไปทับเซลล์อื่นๆ

หากความยาวของตัวเลขเท่ากับ 5 สูตรจะเปลี่ยนเป็น =TEXT(B10,"# # # # #").

หากคุณต้องการเพิ่มอักขระระหว่างทุกคำ สมมติว่าเพิ่มช่องว่างระหว่างชื่อแรก กลาง นามสกุลตามที่แสดงภาพหน้าจอด้านล่าง คุณสามารถใช้ฟังก์ชันที่ผู้ใช้กำหนด

1 กด อื่น ๆ + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ในหน้าต่าง popping คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อแทรกโมดูลเปล่าใหม่

3. คัดลอกและวางโค้ด VBA ด้านล่างลงในโมดูล

เพิ่มอักขระระหว่างคำ

Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function

4. บันทึกโค้ดและปิดหน้าต่างเพื่อกลับไปที่เวิร์กชีต จากนั้นพิมพ์สูตรด้านล่างลงในเซลล์ที่คุณต้องการวางผลการเพิ่ม

= เพิ่มอักขระ (B3)

B3 คือเซลล์ที่มีสตริงที่คุณต้องการเพิ่มช่องว่างระหว่างคำ

5 กด เข้าสู่ เพื่อให้ได้ผลลัพธ์ ลากที่จับเติมอัตโนมัติเหนือเซลล์เพื่อรับผลลัพธ์อื่นๆ ตามที่คุณต้องการ

ในการเพิ่มอักขระเฉพาะระหว่างข้อความและตัวเลขดังที่แสดงไว้ด้านล่างนี้ มีสองวิธี

9.1 เพิ่มอักขระระหว่างข้อความและตัวเลขด้วยสูตร

ถ้าตัวหนังสืออยู่หน้าตัวเลข สูตรทั่วไปคือ

TRIM(แทนที่(สตริง,ต่ำสุด(FIND({1,2,3,4,5,6,7,8,9,0},สตริง&"1234567890")),0,"-"))

โดยใช้กรณีข้างต้นเป็นตัวอย่าง โปรดใช้สูตรดังนี้:

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์แรก จากนั้นลากจุดจับเติมอัตโนมัติบนเซลล์อื่นเพื่อเติมสูตรนี้

ถ้าตัวเลขอยู่ข้างหน้าข้อความ สูตรทั่วไปคือ

LEFT(สตริง,SUM(LEN(สตริง))-LEN(แทนที่(สตริง,{0,1,2,3,4,5,6,7,8,9},""))))&"."&ขวา (สตริง,LEN(B13)- SUM(LEN(สตริง))-LEN(แทนที่(สตริง, {0,1,2,3,4,5,6,7,8,9}, ""))))

โดยใช้กรณีข้างต้นเป็นตัวอย่าง โปรดใช้สูตรดังนี้:

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์แรก จากนั้นลากจุดจับเติมอัตโนมัติบนเซลล์อื่นเพื่อเติมสูตรนี้

9.2 เพิ่มอักขระระหว่างข้อความและตัวเลขด้วย Flash Fill

ถ้าคุณอยู่ใน Excel 2013 หรือเวอร์ชันที่ใหม่กว่า เติม Flash ยังช่วยให้คุณเพิ่มอักขระระหว่างข้อความและตัวเลขได้อีกด้วย

ข้างข้อมูลเดิม ให้พิมพ์ข้อมูลใหม่ที่มีการเพิ่มอักขระระหว่างข้อความและตัวเลข จากนั้นกดปุ่ม Enter เพื่อไปยังเซลล์ถัดไปของผลลัพธ์แรก

แล้วกด Ctrl + E ปุ่มเพื่อเปิดใช้งานการเติมแฟลช

นามสกุล

บทช่วยสอนนี้ยังแสดงรายการบางสถานการณ์เกี่ยวกับการเพิ่มข้อความที่เราอาจพบในชีวิตประจำวันหรือที่ทำงานของเรา

บางครั้ง คุณจำเป็นต้องเพิ่มตัวคั่น เช่น ขีดกลางในหมายเลขโทรศัพท์หรือหมายเลขโซเชียลดังที่แสดงไว้ด้านล่าง จะพยายามพิมพ์ด้วยตนเองหากจำเป็นต้องเพิ่มตัวเลขหลายร้อยตัว ในส่วนนี้จะแนะนำเคล็ดลับสามวิธีในการจัดการงานนี้อย่างรวดเร็ว

10.1 เพิ่มขีดกลางให้กับตัวเลขตามสูตร

ต่อไปนี้เป็นสูตรสองสูตรที่สามารถเพิ่มขีดกลางให้กับตัวเลขได้อย่างรวดเร็ว หากต้องการเพิ่มขีดกลางหลังตัวเลขที่สามและหกในเซลล์ B3 โปรดใช้สูตรดังนี้:

ฟังก์ชัน REPLACE

=REPLACE(REPLACE(B3,4,0,"-"),8,0,"-")

ฟังก์ชัน TEXT

=TEXT(B3,"???-???-??? ")

ข่าวประชาสัมพันธ์ เข้าสู่ เพื่อให้ได้ผลลัพธ์แรก จากนั้นลากจุดจับเติมอัตโนมัติเหนือเซลล์อื่นๆ

10.2 เพิ่มขีดกลางให้กับตัวเลขโดย Format Cells

ในการเพิ่มขีดกลางให้กับตัวเลขในเซลล์ดั้งเดิมโดยตรง คุณสามารถใช้ จัดรูปแบบเซลล์ ลักษณะ

1. เลือกตัวเลขที่คุณต้องการเพิ่มขีดกลาง จากนั้นกด Ctrl + 1 คีย์เพื่อเปิดใช้งานไฟล์ จัดรูปแบบเซลล์ โต้ตอบ

2 ใน จัดรูปแบบเซลล์ ภายใต้ จำนวน เลือกแท็บ ประเพณี จาก Category มาตรา.

3. จากนั้นทางด้านขวา ประเภท ส่วนพิมพ์ - ในกล่องข้อความคลิก OK.

ตอนนี้ได้เพิ่มตัวเลขที่เลือกแล้ว

10.3 เพิ่มขีดกลางไปยังหมายเลขโทรศัพท์โดยเพิ่มข้อความของ Kutools for Excel

ถ้าคุณมี Kutools สำหรับ Excel ติดตั้งใน Excel, the เพิ่มข้อความ คุณสมบัติยังสามารถช่วยคุณได้

1. เลือกเซลล์ที่มีตัวเลขที่ต้องเพิ่มขีดกลาง คลิก Kutools > ข้อความ > เพิ่มข้อความ

2 ใน เพิ่มข้อความ ให้พิมพ์เส้นประหรือตัวคั่นอื่นๆ ลงใน ข้อความ กล่องข้อความให้เลือก ระบุ จากนั้นพิมพ์ตำแหน่งที่คุณต้องการเพิ่มขีดกลางและคั่นด้วยเครื่องหมายจุลภาคในกล่องข้อความด้านล่าง

3 คลิก Ok หรือสมัคร จากนั้นตัวเลขที่เลือกก็ถูกเพิ่มด้วยขีดกลาง

ดาวน์โหลดฟรี Add Text สำหรับการทดลองใช้ 30 วัน

สมมติว่ามีรายการตัวเลขที่มีความยาวต่างกัน คุณต้องการเพิ่มศูนย์นำหน้าเพื่อให้มีความยาวเท่ากันและดูเรียบร้อยดังที่แสดงไว้ด้านล่างนี้ ต่อไปนี้เป็นสองวิธีที่จัดเตรียมไว้สำหรับคุณในการจัดการงาน

11.1 เพิ่มเลขศูนย์นำหน้าให้กับเซลล์ด้วยคุณสมบัติ Format Cells

คุณสามารถใช้ จัดรูปแบบเซลล์ คุณลักษณะในการตั้งค่ารูปแบบที่กำหนดเองเพื่อแก้ไขความยาวเซลล์โดยการเพิ่มศูนย์นำหน้า

1. เลือกเซลล์ที่คุณต้องการเพิ่มศูนย์นำหน้า จากนั้นกด Ctrl + 1 คีย์เพื่อเปิดใช้งาน จัดรูปแบบเซลล์ โต้ตอบ

2 ใน จัดรูปแบบเซลล์ ภายใต้ จำนวน เลือกแท็บ ประเพณี จาก Category มาตรา.

3. จากนั้นทางด้านขวา ประเภท ส่วนพิมพ์ 0000 ลงในช่องข้อความ (หากต้องการกำหนดความยาวตัวเลขเป็น 4 หลัก พิมพ์ 0000 เปลี่ยนเป็นความยาวอื่นๆ ได้ เช่น 5-dight พิมพ์ 00000) คลิก OK.

จากนั้นตัวเลขจะถูกเพิ่มด้วยเลขศูนย์นำหน้าและมีความยาวเท่ากัน

11.2 เพิ่มเลขศูนย์นำหน้าเซลล์ด้วยสูตร

ถ้าคุณไม่ต้องการเปลี่ยนแปลงข้อมูลเดิม คุณสามารถใช้สูตรเพื่อเพิ่มศูนย์นำหน้าให้กับตัวเลขในตำแหน่งอื่นได้

นี่คือสามฟังก์ชันที่สามารถช่วยคุณได้

ฟังก์ชัน Formula1 TEXT

TEXT(หมายเลข,"00…")

ฟังก์ชัน Formula2 RIGHT

RIGHT("00…"&หมายเลข,ความยาว)

ฟังก์ชัน Formula3 BASE

ฐาน(หมายเลข,10,ความยาว)

จำนวนศูนย์ในสูตรเท่ากับความยาวของตัวเลข

ในที่นี้คุณตั้งค่า 4 หลักเป็นความยาวของตัวเลข โปรดใช้สูตรดังต่อไปนี้:

= ข้อความ (B10, "0000")

=RIGHT("0000"&B10,4)

=ฐาน(B10,10,4)

ข่าวประชาสัมพันธ์ เข้าสู่ ที่สำคัญและลากที่จับเติมอัตโนมัติลง

หากคุณต้องการเพิ่มเลขศูนย์ต่อท้ายตัวเลขเพื่อสร้างความยาวคงที่ สมมติว่าเพิ่มเลขศูนย์ต่อท้ายตัวเลขในเซลล์ B3:B7 เพื่อให้มีความยาว 5 หลักดังภาพหน้าจอด้านล่าง คุณสามารถใช้สูตรเพื่อจัดการกับงานได้ .

ฟังก์ชัน REPT

number&REPT("0",length-LEN(ตัวเลข))

ในสูตร อาร์กิวเมนต์ "number" หมายถึงตัวเลขหรือการอ้างอิงเซลล์ที่คุณต้องการเพิ่มเลขศูนย์ต่อท้าย และอาร์กิวเมนต์ "length" คือความยาวคงที่ที่คุณต้องการ

โปรดใช้สูตรดังนี้:

=B3&REPT("0",5-LEN(B3))

ข่าวประชาสัมพันธ์ เข้าสู่ คีย์และลากที่จับเติมอัตโนมัติลงไปที่เซลล์ที่ต้องการสูตรนี้

ถ้าคุณต้องการส่งออกหรือคัดลอกข้อมูลจากเวิร์กชีตไปยังแผ่นจดบันทึก ข้อความอาจถูกวางอย่างไม่เป็นระเบียบเนื่องจากค่าของเซลล์มีความยาวต่างกัน เพื่อให้ดูเรียบร้อยดังที่แสดงไว้ด้านล่างนี้ คุณจะต้องเพิ่มช่องว่างต่อท้าย

สำหรับการแก้ปัญหานี้ ฟังก์ชัน REPT สามารถช่วยคุณได้

LEFT(ข้อความ & REPT(" ",max_length),max_length)

ในสูตร อาร์กิวเมนต์ "text" คือข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการเพิ่มช่องว่างต่อท้าย และอาร์กิวเมนต์ "max_length" คือความยาวคงที่ที่คุณต้องการสร้างข้อความ ซึ่งต้องยาวกว่าหรือเท่ากับ ความยาวสูงสุดของข้อความที่ใช้

หากต้องการเพิ่มช่องว่างต่อท้ายข้อความในเซลล์ B3:C6 โปรดใช้สูตรด้านล่าง:

=LEFT(B3 & REPT(" ",10),10)

ข่าวประชาสัมพันธ์ เข้าสู่ จากนั้นลากที่จับเติมอัตโนมัติไปยังเซลล์ทั้งหมดที่ต้องการสูตรนี้

ในกรณีนี้ เนื่องจากข้อความที่ใช้ยาวที่สุดคือ 9 อักขระ เราจึงใช้ 10 ตรงนี้

บางครั้ง คุณจำเป็นต้องเพิ่มเครื่องหมายอัญประกาศหรือวงเล็บรอบข้อความหรือตัวเลขในเซลล์ดังที่แสดงไว้ด้านล่างภาพหน้าจอ ยกเว้นการพิมพ์ด้วยตนเองทีละตัว ต่อไปนี้เป็นสองวิธีใน Excel ที่สามารถแก้ไขได้อย่างรวดเร็ว

14.1 ใส่เครื่องหมายอัญประกาศ/วงเล็บรอบๆ โดย Format Cells

ถ้าคุณต้องการเพิ่มเครื่องหมายอัญประกาศรอบข้อความในข้อมูลต้นฉบับ ฟีเจอร์จัดรูปแบบเซลล์ใน Excel สามารถช่วยคุณได้

1. เลือกเซลล์ที่คุณต้องการเพิ่มเครื่องหมายคำพูด กด Ctrl + 1 คีย์เพื่อเปิดใช้งานไฟล์ จัดรูปแบบเซลล์ โต้ตอบ

2 ใน จัดรูปแบบเซลล์ ไดอะล็อกภายใต้ จำนวน เลือกแท็บ ประเพณี จากรายการ Categoryจากนั้นไปที่ส่วนขวาเพื่อพิมพ์ "''" @ "''" เข้าไปใน ประเภท กล่องข้อความ. คลิก OK.

เพิ่มข้อความในเซลล์ที่เลือกด้วยเครื่องหมายอัญประกาศ

หากคุณต้องการเพิ่มวงเล็บรอบข้อความ ในกล่องข้อความ Type ของกล่องโต้ตอบ Format Cells ให้ใช้ (@).

14.2 ใส่เครื่องหมายอัญประกาศ/วงเล็บรอบๆ ตามสูตร

สามารถใช้สูตรเพื่อเพิ่มเครื่องหมายคำพูดให้กับข้อความในเซลล์อื่นได้

การใช้ & ตัวเชื่อมต่อ

""""&ข้อความ&""""

Or

ถ่าน(34)&ข้อความ&ถ่าน(34)

ในกรณีนี้ ข้อความในเซลล์ B11 โปรดใช้สูตรดังนี้:

=""""&B11&""""

Or

=ถ่าน(34)&B11&ถ่าน(34)

ข่าวประชาสัมพันธ์ เข้าสู่ คีย์และลากที่จับเติมอัตโนมัติลงเพื่อเติมเซลล์

หากคุณต้องการใส่วงเล็บรอบข้อความ ให้ใช้สูตรเป็น "("&ข้อความ&")".

14.3 เพิ่มเครื่องหมายคำพูด/วงเล็บรอบๆ โดย VBA

หากคุณต้องการโค้ด VBA เพื่อแก้ปัญหานี้ นี่คือ VBA

1 กด อื่น ๆ + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นในหน้าต่างป๊อปอัป ให้คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อแทรกโมดูลใหม่ที่ว่างเปล่า

3. คัดลอกและวางโค้ด VBA ด้านล่างลงในโมดูลใหม่

VBA: เพิ่มเครื่องหมายคำพูดรอบข้อความ

Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub

4 กด F5 คีย์หรือคลิก วิ่ง ปุ่ม  ในหน้าต่างเพื่อเปิดใช้งานโค้ด VBA กล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกเซลล์เพื่อเพิ่มเครื่องหมายคำพูด

5 คลิก OK. ขณะนี้ได้เพิ่มเครื่องหมายอัญประกาศรอบข้อความในเซลล์ที่เลือกแล้ว

บางครั้ง เพื่อช่วยให้ผู้ใช้รายอื่นเข้าใจข้อมูลได้ดีขึ้น คุณอาจต้องเพิ่มข้อความในผลลัพธ์ของสูตรดังที่แสดงไว้ด้านล่างนี้ สำหรับการใส่ข้อความในสูตร คุณสามารถใช้เครื่องหมายอัญประกาศล้อมรอบข้อความและเพิ่มตัวเชื่อมต่อ & เพื่อรวมข้อความและสูตรเข้าด้วยกัน

กรณีที่ 1 เพิ่มข้อความก่อนสูตร

"วันนี้คือ "&TEXT(TODAY(),"dddd, mmmm dd.")

กรณีที่ 2 เพิ่มข้อความหลัง สูตร

TEXT(NOW(),"HH:MM:SS")&" คือเวลาปัจจุบัน"

กรณีที่ 3 เพิ่มข้อความที่ด้านที่สองของสูตร

"วันนี้ขาย"&data&"กก.

---

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

• ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
• ผสานเซลล์ / แถว / คอลัมน์ และการเก็บรักษาข้อมูล แยกเนื้อหาของเซลล์ รวมแถวที่ซ้ำกันและผลรวม / ค่าเฉลี่ย... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
• เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
• สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
• แทรกสูตรที่ชื่นชอบและรวดเร็ว, ช่วงแผนภูมิและรูปภาพ; เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
• แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
• ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
• รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
• การจัดกลุ่มตาราง Pivot ตาม จำนวนสัปดาห์วันในสัปดาห์และอื่น ๆ ... แสดงปลดล็อกเซลล์ที่ถูกล็อก ด้วยสีที่ต่างกัน เน้นเซลล์ที่มีสูตร / ชื่อ...

อ่านเพิ่มเติม ... คุณสมบัติเต็มรูปแบบ ทดลองใช้งานฟรี 30 วัน... ซื้อ... 

---

แท็บ Office - นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก

• เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
• เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
• เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... คุณสมบัติเต็มรูปแบบ ทดลองใช้งานฟรี 30 วัน... ซื้อ...