Note: The other languages of the website are Google-translated. Back to English
English English

จะแทรกช่องว่างก่อนตัวพิมพ์ใหญ่ใน excel ได้อย่างไร?

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


แทรกช่องว่างก่อนตัวพิมพ์ใหญ่ด้วย User Defined Function

น่าเสียดายที่ไม่มีวิธีโดยตรงในการเพิ่มช่องว่างก่อนตัวอักษรตัวพิมพ์ใหญ่ใน 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) ลงในเซลล์ว่างนอกเหนือจากข้อมูลของคุณดูภาพหน้าจอ:
doc-add-spaces-before-ตัวพิมพ์ใหญ่-1

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

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

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


โฆษณาลบช่องว่าง 1

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

นี่คือรหัส 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 เพื่อรันโค้ดนี้กล่องพร้อมต์จะปรากฏขึ้นเพื่อให้คุณเลือกช่วงข้อมูลที่คุณต้องการใช้
doc-add-spaces-before-ตัวพิมพ์ใหญ่-1

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


แทรกช่องว่างก่อนตัวพิมพ์ใหญ่ทุกตัวด้วย Kutools for Excel

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

Kutools สำหรับ Excel - รวมกว่า

300
เครื่องมือที่มีประโยชน์สำหรับ Excel ทดลองใช้ฟรีคุณลักษณะเต็มรูปแบบ
30
วันไม่ต้องใช้บัตรเครดิต! ทดลองใช้ฟรีทันที!

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

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

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

Kutools สำหรับ Excel - รวมกว่า

300
เครื่องมือที่มีประโยชน์สำหรับ Excel ทดลองใช้ฟรีคุณลักษณะเต็มรูปแบบ
30
วันไม่ต้องใช้บัตรเครดิต! Get It Now

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


บทความที่เกี่ยวข้อง:


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

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

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

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณโดย
    50%
    และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (9)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการความช่วยเหลือใน excel ฉันต้องการค้นหาตัวพิมพ์ใหญ่ในเซลล์ ตัวอย่างเช่น: Sagar Paul MBA 16:04 ฉันต้องการเน้น MBA
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันหวังว่าคุณจะเห็นมันและทดลองใช้ การทดสอบย่อย () Dim Rg As Range, xCell As Range Dim i As Long Dim xChar As String Set Rg = Application.Selection For Each xCell In Rg For i = 1 To xCell.Characters.Count xChar = xCell.Characters(i, 1 .Text If Asc(xChar) > 64 And Asc(xChar) < 91 จากนั้น xCell.Characters(i, 1).Font.Color = vbRed End If Next Next End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี รหัสของคุณใช้งานได้ดี คุณรู้วิธีปรับโค้ด 20140723 ให้ทำงานหลายแผ่นหรือไม่? ฉันต้องการเพิ่มช่องว่างระหว่างตัวพิมพ์ใหญ่ตลอดทั้งสมุดงาน ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

ก่อนอื่น ขอบคุณมากสำหรับตัวอย่างโค้ดและคำอธิบายของคุณ มันทำงานได้ดีมากสำหรับกรณีของฉัน

ฉันเพิ่งมีปัญหา 1 ข้อ บางสตริงมีคำเช่น URL ซึ่งไม่ควรแยก
คุณเห็นวิธียกเว้นเช่น "URL" จากการเพิ่มช่องว่างหรือไม่?

จะดีมากถ้าคุณสามารถช่วย ฉันลองมาซักพักแล้ว แต่ฉันไม่รู้ว่าจะแก้ปัญหานี้อย่างไร ..


ด้วยความเคารพ
Luca
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ขอบคุณสำหรับความคิดเห็นและคำแนะนำของคุณ ฉันได้ส่งข้อเสนอแนะของคุณไปยังทีมงานโครงการ Kutools แล้ว ฉันแน่ใจว่าพวกเขาจะปรับปรุงในไม่ช้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
พบวิธีแก้ปัญหา?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี อยากถามคุณว่าคุณพบวิธีแก้ปัญหาสำหรับกรณีของคุณหรือไม่ หากคุณพบวิธีแก้ไข โปรดระบุสิ่งนั้นให้ฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฟังก์ชันนี้จัดการปัญหาสองประการที่โซลูชันที่ระบุไม่ครอบคลุม:
1. ข้อความที่ไม่ใช่ภาษาอังกฤษ (มีเครื่องหมายกำกับเสียง)
2. ตัวพิมพ์ใหญ่ต่อเนื่องที่ไม่ควรมีช่องว่างตามหลัง

` ฟังก์ชั่นส่วนตัว AddSpaces (ข้อความเป็นสตริง) เป็นสตริง
' แทรกช่องว่างก่อนอักษรตัวพิมพ์ใหญ่ ยกเว้นเมื่อแต่ละอักขระต่อเนื่องกันเป็นตัวพิมพ์ใหญ่
' ปรับปรุงล่าสุด: 2022-07-04
'
Dim sRet As String, i As Integer, sChar As String, bPrevWasUCase เป็นบูลีน

sRet = ซ้าย (ข้อความ 1)
สำหรับฉัน = 2 ถึง Len (ข้อความ)
sChar = กลาง (ข้อความ, ผม, 1)
ถ้า sChar = UCase(sChar) และไม่ใช่ bPrevWasUCase แล้ว
sRet = sRet & " " & sChar
bPrevWasUCase = จริง
อื่น
sRet = sRet & sChar
bPrevWasUCase = เท็จ
End If
ต่อไปฉัน

AddSpaces = sRet
สิ้นสุดฟังก์ชัน`
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเพื่อน,

ขอบคุณสำหรับการแบ่งปันของคุณ ฉันลองใช้รหัส VBA ของคุณแล้ว แต่มันใช้งานไม่ได้ รหัส VBA ของเราสามารถจัดการกับข้อความที่ไม่ใช่ภาษาอังกฤษได้ ฉันได้ทดสอบข้อความภาษาฝรั่งเศสและช่องว่างถูกแทรกก่อนตัวพิมพ์ใหญ่

ขอแสดงความนับถือ
แมนดี้
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL