Vba: วิธีนับจำนวนแถวในช่วง

คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้เพื่อนับจำนวนแถวในช่วงใน Excel โดยใช้ VBA:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

ตัวอย่างนี้จะนับจำนวนแถวในคอลัมน์ A จากนั้นกำหนดผลลัพธ์ให้กับเซลล์ E2

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

 SubCountRows ()
    'Create variable to store number of rows
    Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีในทางปฏิบัติกับชุดข้อมูลต่อไปนี้ใน Excel ที่มีชื่อของผู้เล่นบาสเก็ตบอลจากสามทีมที่แตกต่างกัน:

ตัวอย่างที่ 1: นับแถวในช่วงโดยใช้ VBA และแสดงผลลัพธ์ในเซลล์

สมมติว่าเราต้องการคำนวณจำนวนแถวในคอลัมน์ A และแสดงผลลัพธ์ในเซลล์ใดเซลล์หนึ่ง

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

โปรดสังเกตว่าเซลล์ E2 มีค่า 9

สิ่งนี้บอกเราว่ามี 9 แถวในคอลัมน์ A ที่มีค่า

ตัวอย่างที่ 2: นับแถวในช่วงโดยใช้ VBA และ แสดงผลลัพธ์ในกล่องข้อความ

สมมติว่าเราต้องการ นับจำนวนแถวในคอลัมน์ A และแสดงผลลัพธ์ในกล่องข้อความแทน

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubCountRows ()
    'Create variable to store number of rows
Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

กล่องข้อความบอกเราว่ามี 9 แถวในคอลัมน์ A ที่มีค่า

โปรดทราบว่าในตัวอย่างนี้ เราคำนวณจำนวนแถวในคอลัมน์ A ทั้งหมดโดยใช้ A:A เป็นช่วง

อย่างไรก็ตาม หากคุณต้องการคำนวณจำนวนแถวที่มีค่าในช่วงที่ต้องการแทน คุณสามารถพิมพ์ A2:A9 (หรือช่วงอื่นๆ ที่คุณสนใจ)

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีเขียนฟังก์ชัน AVERAGEIF และ AVERAGEIFS
VBA: วิธีเขียนฟังก์ชัน SUMIF และ SUMIFS
VBA: วิธีเขียนฟังก์ชัน COUNTIF และ COUNTIFS