จะเพิ่ม / แทรกอักขระบางตัวทุกอักขระ x ลงในเซลล์ได้อย่างไร?
สมมติว่าฉันมีรายการสตริงข้อความที่ฉันต้องการแทรกขีดกลางหรือตัวคั่นอื่น ๆ หลังจากทุกๆสี่อักขระลงในเซลล์เพื่อรับผลภาพหน้าจอต่อไปนี้ มีเซลล์จำนวนมากเกินไปที่จำเป็นในการแทรกอักขระบางตัวมีวิธีที่รวดเร็วในการแทรกขีดกลางทุกๆสี่อักขระใน Excel หรือไม่?
แทรกอักขระบางตัวทุกอักขระ x ลงในเซลล์ด้วยรหัส VBA
แทรกอักขระบางตัวทุกอักขระ x ลงในเซลล์ด้วย Kutools for Excel
แทรกอักขระบางตัวทุกอักขระ x ลงในเซลล์ด้วยรหัส VBA
คุณสามารถใช้รหัส VBA ต่อไปนี้เพื่อแทรกอักขระเฉพาะหลังจากทุกๆสี่อักขระลงในเซลล์โปรดทำดังนี้:
1. กด ALT + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: แทรกอักขระบางตัวทุกอักขระ x ลงในเซลล์
Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการแทรกอักขระบางตัวภายในสตริงข้อความดูภาพหน้าจอ:
4. และคลิก OKในกล่องข้อความต่อไปนี้โปรดป้อนหมายเลขที่คุณต้องการแทรกอักขระบางตัวทุกครั้งดูภาพหน้าจอ:
5. ไปที่การคลิก OKและในช่องพร้อมต์ตามมาโปรดป้อนอักขระที่คุณต้องการเพิ่มลงในข้อความดูภาพหน้าจอ:
6. คลิก OK และเลือกหนึ่งเซลล์ที่คุณต้องการแสดงผลลัพธ์ในกล่องพร้อมต์ดูภาพหน้าจอ:
7. ในที่สุดคลิก OKอักขระบางตัวถูกแทรกลงในแต่ละสตริงข้อความทุกๆสี่อักขระดูภาพหน้าจอ:
แทรกอักขระบางตัวทุกอักขระ x ลงในเซลล์ด้วย Kutools for Excel
โค้ดด้านบนอาจจะค่อนข้างยากสำหรับผู้เริ่มต้น Excel ส่วนใหญ่ที่นี่ฉันสามารถแนะนำเครื่องมือที่มีประโยชน์ - Kutools for Excelเดียวกันกับที่ เพิ่มข้อความ คุณสามารถเพิ่มข้อความหรืออักขระเฉพาะก่อนหลังหรือตำแหน่งบางตำแหน่งของค่าเซลล์ได้อย่างรวดเร็ว
| Kutools for Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. |
ถ้าคุณได้ติดตั้ง Kutools for Excelโปรดดำเนินการดังนี้:
1. เลือกช่วงข้อมูลที่คุณต้องการแทรกอักขระเฉพาะ
2. จากนั้นคลิก Kutools > ข้อความ > เพิ่มข้อความดูภาพหน้าจอ:
3. ใน เพิ่มข้อความ กล่องโต้ตอบระบุอักขระที่คุณต้องการแทรกในไฟล์ ข้อความ จากนั้นเลือก ระบุจากตำแหน่ง ในกล่องข้อความป้อนตำแหน่งที่คุณต้องการแทรกอักขระหลังในเวลาเดียวกันคุณสามารถดูผลลัพธ์ที่บานหน้าต่างด้านขวาดูภาพหน้าจอ:
เคล็ดลับ: ที่นี่ฉันพิมพ์ 4,8,12 ในกล่องข้อความของ ระบุ ซึ่งระบุให้แทรกข้อความเฉพาะหลังอักขระที่ 4, 8 และ 12 ของสตริงข้อความ
4. จากนั้นคลิก Ok or ใช้ ปุ่มอักขระที่ระบุได้ถูกแทรกลงในค่าของเซลล์ที่ตำแหน่งเฉพาะ
 |
 |
 |
คลิกเพื่อทราบรายละเอียดเพิ่มเติมเกี่ยวกับยูทิลิตี้ Add Text นี้
ดาวน์โหลดและทดลองใช้ฟรี Kutools for Excel ตอนนี้ !
การสาธิต: แทรกอักขระบางตัวทุกอักขระ x ลงในเซลล์ด้วย Kutools for Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
