วิธีนับจำนวนคำในเซลล์หรือเซลล์ช่วงใน Excel

คุณสามารถนับจำนวนคำใน MS Word ได้อย่างง่ายดาย แต่ Excel ไม่มีเครื่องมือในตัวสำหรับนับจำนวนคำในแผ่นงาน อย่างไรก็ตามคุณสามารถนับจำนวนคำใน Excel ได้ด้วยวิธีการดังต่อไปนี้:

นับจำนวนคำด้วยสูตร
นับจำนวนคำในเซลล์เดียวด้วย User Defined Functions
นับจำนวนคำในช่วงที่ระบุด้วยรหัส VBA
นับจำนวนคำได้อย่างง่ายดายด้วย Kutools for Excel (คลิกหลายครั้ง)

นับจำนวนคำด้วยสูตร

ต่อไปนี้เป็นสูตรสองสูตรสำหรับคุณในการนับจำนวนคำในเซลล์เดียวและในเซลล์ช่วง

นับคำในเซลล์เดียว

กรุณาใส่สูตรนี้ =IF(LEN(TRIM(A2))=0,0,LEN(TRIM(A2))-LEN(SUBSTITUTE(A2," ",""))+1) เข้าไปใน สูตรบาร์แล้วกดปุ่ม เข้าสู่ กุญแจ

หมายเหตุ: ในสูตร A2 คือเซลล์ที่คุณจะนับจำนวนคำภายใน

คุณสามารถดูผลลัพธ์ตามภาพด้านล่างที่แสดง:

นับคำในช่วงของเซลล์ด้วยสูตรอาร์เรย์

หากคุณต้องการนับจำนวนคำในช่วงเซลล์โปรดป้อนสูตร =SUM(IF(LEN(TRIM(A2:A3))=0,0,LEN(TRIM(A2:A3))-LEN(SUBSTITUTE(A2:A3," ",""))+1)) ลงในแถบสูตรแล้วกด เปลี่ยน + Ctrl + เข้าสู่ คีย์พร้อมกันเพื่อให้ได้ผลลัพธ์ ดูภาพหน้าจอ:

หมายเหตุ: A2: A3 คือช่วงที่มีคำที่คุณจะนับ

นับจำนวนคำด้วย User Defined Functions

นอกจากนี้คุณสามารถนับจำนวนคำในเซลล์ด้วยฟังก์ชันที่กำหนดโดยผู้ใช้โปรดทำดังนี้:

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

2. ใน winodw คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในโมดูล ดูภาพหน้าจอ:

รหัส VBA: นับจำนวนคำในเซลล์

Function intWordCount(rng As Range) As Integer
'Update by Extendoffice 2018/3/7
    intWordCount = UBound(Split(Application.WorksheetFunction.Trim(rng.Value), " "), 1) + 1
End Function

2 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน winodw. เลือกเซลล์ว่างในแผ่นงานของคุณป้อนสูตร“=intwordcount(A2)” ลงในแถบสูตรแล้วกดปุ่ม เข้าสู่ กุญแจสำคัญในการรับผลลัพธ์ ดูภาพหน้าจอ:

หมายเหตุ: ในสูตร A2 คือเซลล์ที่คุณจะนับจำนวนคำภายใน

หากคุณต้องการนับจำนวนคำในช่วงหนึ่งโปรดใช้วิธีการต่อไปนี้

นับจำนวนคำในช่วงที่ระบุด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยให้คุณนับจำนวนคำในช่วงที่ระบุได้อย่างรวดเร็ว

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

2. ใน winodw คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในโมดูล ดูภาพหน้าจอ:

รหัส VBA: นับจำนวนคำในช่วงที่เลือก

Sub CountWords()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xRgVal As String
    Dim xRgNum As Long
    Dim xNum As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then
        MsgBox "Words In Selection Is: 0", vbInformation, "Kutools For Excel"
        Exit Sub
    End If
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        xRgVal = Application.WorksheetFunction.Trim(xRgVal)
        If xRgEach.Value <> "" Then
            xNum = Len(xRgVal) - Len(Replace(xRgVal, " ", "")) + 1
            xRgNum = xRgNum + xNum
        End If
    Next xRgEach
    MsgBox "Words In Selection Is: " & Format(xRgNum, "#,##0"), vbOKOnly, "Kutools For Excel"
    Application.ScreenUpdating = True
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการโผล่ขึ้นมา Kutools สำหรับ Excel โปรดเลือกช่วงที่คุณจะนับจำนวนคำภายในจากนั้นคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:

แล้วอีกอย่าง Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นเพื่อแสดงจำนวนคำทั้งหมดในช่วงที่เลือก ดูภาพหน้าจอ:

นับจำนวนคำด้วย Kutools for Excel (คลิกเท่านั้น)

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

1. เลือกเซลล์สำหรับส่งคืนผลลัพธ์จากนั้นคลิก Kutools > ตัวช่วยสูตร > ตัวช่วยสูตร.

2 ใน ตัวช่วยสูตร โปรดกำหนดค่าดังต่อไปนี้

• ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร เลือกสูตร เลือก นับคำทั้งหมด;
  เคล็ดลับ: คุณสามารถตรวจสอบไฟล์ กรอง ป้อนคำสำคัญเพื่อกรองสูตรอย่างรวดเร็วตามที่คุณต้องการ
• ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร พิสัย กล่องระบุเซลล์หรือช่วงที่คุณต้องการนับจำนวนคำทั้งหมด
• คลิก OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นคุณจะได้รับจำนวนคำในเซลล์หรือช่วงที่ระบุ

นับจำนวนคำได้อย่างง่ายดายด้วย Kutools for Excel

---

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

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

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

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ... 

---

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

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

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...