น่าเสียดายที่ไม่มีวิธีโดยตรงในการเพิ่มช่องว่างก่อนตัวอักษรตัวพิมพ์ใหญ่ใน Excel แต่คุณสามารถสร้าง User Defined Function เพื่อแก้ปัญหานี้ได้

1. เปิดใช้งานแผ่นงานของคุณซึ่งมีสตริงข้อความที่คุณต้องการเพิ่มช่องว่าง

2. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: แทรกช่องว่างก่อนตัวพิมพ์ใหญ่

Function AddSpaces(pValue As String) As String
'Update 20140723
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
AddSpaces = xOut
End Function

4. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานแล้วป้อนสูตรนี้ = addspaces (A1) ลงในเซลล์ว่างนอกเหนือจากข้อมูลของคุณดูภาพหน้าจอ:

5. จากนั้นลากจุดจับเติมเหนือช่วงที่คุณต้องการให้มีสูตรนี้คุณจะได้รับช่องว่างก่อนตัวอักษรตัวใหญ่ทุกตัว

ลบช่องว่างนำหน้า / ต่อท้าย / ส่วนเกินในเซลล์ได้อย่างง่ายดาย

Kutools สำหรับ Excel's ลบ Spaces ยูทิลิตี้ช่วยให้ผู้ใช้ Excel สามารถลบพื้นที่ชั้นนำทั้งหมดช่องว่างต่อท้ายช่องว่างพิเศษหรือช่องว่างทั้งหมดจากเซลล์ที่เลือกได้อย่างรวดเร็ว

นี่คือรหัส VBA อื่นที่สามารถช่วยคุณได้โปรดทำดังนี้:

1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

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

รหัส VBA: แทรกช่องว่างก่อนตัวพิมพ์ใหญ่

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. จากนั้นกด F5 เพื่อรันโค้ดนี้กล่องพร้อมต์จะปรากฏขึ้นเพื่อให้คุณเลือกช่วงข้อมูลที่คุณต้องการใช้

4. จากนั้นคลิก OK เพื่อปิดกล่องพร้อมต์นี้ช่องว่างจะถูกแทรกก่อนตัวพิมพ์ใหญ่พร้อมกันดูภาพหน้าจอ:

Kutools สำหรับ Excel's เพิ่มข้อความ ยูทิลิตี้สามารถช่วยคุณข้ามมาโคร VBA และแทรกช่องว่างก่อนตัวพิมพ์ใหญ่ทุกตัวใน Excel ได้อย่างง่ายดาย

1. เลือกช่วงที่คุณจะแทรกช่องว่างก่อนตัวพิมพ์ใหญ่แล้วคลิก Kutools > ข้อความ > เพิ่มข้อความ. ดูภาพหน้าจอ:

2. ในกล่องโต้ตอบเพิ่มข้อความเปิดให้พิมพ์ช่องว่างลงในไฟล์ ข้อความ ให้ทำเครื่องหมายที่ เพิ่มในตัวเลือกเท่านั้น และเลือก ตัวอักษรตัวที่ 1 เป็นตัวพิมพ์ใหญ่ จาก เพิ่มเฉพาะ รายการแบบเลื่อนลง

3. คลิก Ok ปุ่มเพื่อแทรกช่องว่างก่อนตัวพิมพ์ใหญ่ทุกตัวตามภาพหน้าจอต่อไปนี้ที่แสดง:

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

วิธีเพิ่มช่องว่างหลังเครื่องหมายจุลภาคใน Excel