วิธีนับแถวด้วยข้อมูลในคอลัมน์โดยใช้ VBA ใน Excel (9 วิธี)

  • แบ่งปันสิ่งนี้
Hugh West

สารบัญ

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

ดาวน์โหลดสมุดงาน

นับแถวด้วย Data.xlsm

9 วิธีในการนับแถวด้วยข้อมูลในคอลัมน์โดยใช้ Excel VBA

ที่นี่ เรามีชุดข้อมูลต่อไปนี้ที่มีบันทึกการขายของบริษัท เราจะใช้คอลัมน์ต่างๆ ที่มีข้อมูลจากชุดข้อมูลนี้เพื่ออธิบายวิธีต่างๆ ในการนับแถวตามข้อมูลของคอลัมน์

เราใช้ Microsoft Excel 365 เวอร์ชันที่นี่ คุณสามารถใช้เวอร์ชันอื่นตามความสะดวกของคุณ

วิธีที่ 1: การใช้คุณสมบัติ VBA Rows.Count เพื่อนับแถวกับข้อมูลในคอลัมน์ใน Excel

ที่นี่ เรา จะนับแถวของคอลัมน์ ยอดขาย ที่มีค่ายอดขายสำหรับสินค้าโดยใช้แถว นับคุณสมบัติ ของ VBA .

ขั้นตอนที่ 01 :

➤ ไปที่ นักพัฒนา แท็บ >> Visual Basic ตัวเลือก

จากนั้น Visual Basic Editor จะเปิดขึ้น .

➤ ไปที่ แทรก แท็บ >> โมดูล ตัวเลือก

หลังจากนั้น โมดูล จะถูกสร้างขึ้น

ขั้นตอนที่ 02 :

➤ เขียนโค้ดต่อไปนี้

7199

ที่นี่ เราได้ประกาศให้ X เป็น จำนวนเต็ม , “D4:D11” เป็นช่วงบนพื้นฐานของเรากำลังนับแถวในคอลัมน์ใด และสุดท้าย เราได้กำหนดหมายเลขแถวให้กับ X

กล่องข้อความ ( MsgBox ) จะให้ผลลัพธ์เป็นจำนวนทั้งหมด ของแถว

➤ กด F5 .

จากนั้น คุณจะได้จำนวนแถวทั้งหมดที่มีข้อมูลเป็น 8 ของคอลัมน์ การขาย ในกล่องข้อความ

อ่านเพิ่มเติม: Excel VBA  เพื่อนับแถวที่มีข้อมูล (4 ตัวอย่าง)

วิธีที่ 2: การใช้ End Property เพื่อนับแถวที่มีข้อมูลในคอลัมน์

ในส่วนนี้ เราจะใช้ สิ้นสุดคุณสมบัติ ของ VBA เพื่อนับแถวที่มีค่าการขายของคอลัมน์ การขาย

Steps :

➤ ทำตาม Step-01 of Method-1 .

➤ เขียนโค้ดต่อไปนี้

1589

ที่นี่ เราได้ประกาศ X เป็น จำนวนเต็ม , “D4” เป็นค่าเริ่มต้นของช่วงตามคอลัมน์ที่เรากำลังนับแถว และสุดท้ายเราได้กำหนดหมายเลขแถวให้กับ X X จะให้หมายเลขแถวที่ใช้ล่าสุด ไม่ใช่แถวที่ใช้ทั้งหมดของคอลัมน์นี้ ดังนั้น เพื่อให้ได้จำนวนแถวทั้งหมด เราได้ลบ 3 ( หมายเลขแถวเริ่มต้น -1 = 4-1 = 3 ) จาก X .

กล่องข้อความ ( MsgBox ) จะปรากฏขึ้นพร้อมจำนวนแถวทั้งหมด

➤ กด F5 .<3

หลังจากนั้น คุณจะมี 8 เป็นจำนวนแถวทั้งหมดของคอลัมน์ การขาย ในกล่องข้อความ

อ่านเพิ่มเติม: วิธีนับแถวกับข้อมูลใน Excel (4 สูตร) ​​

วิธีที่ 3: การใช้การรวมกันของคุณสมบัติ Rows.Count และคุณสมบัติสุดท้าย

ที่นี่ เราจะใช้การรวมกันของคุณสมบัติทั้งสอง ของ VBA เหมือนกับ แถว นับพร็อพเพอร์ตี้ และ สิ้นสุดพร็อพเพอร์ตี้ รวมกันเพื่อนับแถวทั้งหมดของคอลัมน์ การขาย

ขั้นตอน :

➤ ทำตาม ขั้นตอน-01 ของ วิธีการ-1 .

➤ เขียนโค้ดต่อไปนี้

4055

ที่นี่ เราได้ประกาศ X เป็น จำนวนเต็ม , 4 ใน (Rows. Count, 4) สำหรับ ยอดขาย คอลัมน์ตามคอลัมน์ที่เรากำลังนับแถว และสุดท้ายเราได้กำหนดหมายเลขแถวให้กับ X

X จะส่งคืนแถวที่ใช้ล่าสุด ไม่ใช่จำนวนแถวที่ใช้ทั้งหมดของคอลัมน์นี้ ดังนั้น เพื่อให้ได้จำนวนแถวทั้งหมด เราได้ลบ 3 ( หมายเลขแถวเริ่มต้น -1 = 4-1 = 3 ) จาก X .

กล่องข้อความ ( MsgBox ) จะปรากฏขึ้นพร้อมจำนวนแถวทั้งหมด

➤ กด F5 .

หลังจากนั้น เราจะได้ 8 เป็นจำนวนแถวทั้งหมดของคอลัมน์ การขาย ในกล่องข้อความ

เนื้อหาที่เกี่ยวข้อง: วิธีนับแถวที่มีหลายเกณฑ์ใน Excel (6 วิธี)

วิธีที่ 4: การใช้คุณสมบัติการเลือก VBA เพื่อนับแถวที่มีข้อมูลในคอลัมน์ใน Excel

คุณสามารถใช้ คุณสมบัติการเลือก เพื่อนับแถวทั้งหมดตามข้อมูลของ ยอดขาย คอลัมน์

ขั้นตอน :

➤ ทำตาม ขั้นตอนที่ 01 ของ วิธีการ -1 .

➤ เขียนโค้ดต่อไปนี้

6894

ที่นี่ เราได้ประกาศ X เป็น จำนวนเต็ม แถวที่เลือก ช่วงจะถูกนับที่นี่ และสุดท้าย เราได้กำหนดหมายเลขแถวให้กับ X

กล่องข้อความ ( MsgBox ) จะให้ผลลัพธ์เป็นจำนวนรวม จำนวนแถว

จากนั้นเราต้องกลับไปที่แผ่นงานหลัก

➤ เลือกช่วงของคอลัมน์ การขาย จากนั้นไปที่แท็บ นักพัฒนาซอฟต์แวร์ แท็บ >> มาโคร ตัวเลือก

หลังจากนั้น กล่องโต้ตอบ มาโครจะปรากฏขึ้น

➤ เลือก ชื่อมาโคร countrows4 จากนั้นกดปุ่ม เรียกใช้ ตัวเลือก

สุดท้าย เราจะได้กล่องข้อความต่อไปนี้ “จำนวนแถวที่ใช้คือ 8” .

<0

อ่านเพิ่มเติม: วิธีนับแถวด้วย VBA ใน Excel (5 แนวทาง)

วิธีที่ 5: นับแถวพร้อมข้อมูลในคอลัมน์โดยใช้ฟังก์ชัน FIND

ในที่นี้ เราจะใช้ ฟังก์ชัน FIND เพื่อนับแถวที่มีสตริงข้อความในคอลัมน์ ภูมิภาค

ขั้นตอน :

➤ ทำตาม Step-01 of Method-1 .

➤ เขียนโค้ดต่อไปนี้

2366

ที่นี่ เราได้ประกาศ X เป็น จำนวนเต็ม , rng เป็น ช่วง , “C4:C11” คือช่วงตาม เรากำลังนับแถวในคอลัมน์ใดและในที่สุดเราก็กำหนดให้ rng .

เราใช้คำสั่ง WITH เพื่อหลีกเลี่ยงการซ้ำซ้อนของการใช้ชื่อวัตถุ เช่น rng .

การใช้ ฟังก์ชัน FIND X จะทำให้เราทราบหมายเลขแถวที่ใช้ล่าสุด ไม่ใช่จำนวนแถวที่ใช้ทั้งหมดของคอลัมน์นี้ ดังนั้น เพื่อให้ได้จำนวนแถวทั้งหมด เราได้ลบ 3 ( หมายเลขแถวเริ่มต้น -1 = 4-1 = 3 ) จาก X .

กล่องข้อความ ( MsgBox ) จะปรากฏขึ้นพร้อมจำนวนแถวทั้งหมด

➤ กด F5 .

สุดท้าย คุณจะมี 8 เป็นจำนวนแถวทั้งหมดของคอลัมน์ การขาย ในกล่องข้อความ

เนื้อหาที่เกี่ยวข้อง: Excel นับแถวที่มองเห็นได้ (สูตรและโค้ด VBA)

การอ่านที่คล้ายกัน:

  • นับแถว ในกลุ่มที่มี Pivot Table ใน Excel (คำแนะนำทีละขั้นตอน)
  • Excel VBA: นับแถวในแผ่นงาน (5 ตัวอย่าง)

วิธีที่ 6: นับแถวที่ไม่ว่างด้วยข้อมูลในคอลัมน์โดยใช้ VBA

ที่นี่ เรามีเซลล์ว่างบางส่วนในคอลัมน์ ยอดขาย (เราได้ลบค่าบางค่าสำหรับวิธีนี้) และ การใช้โค้ด VBA เราจะนับเฉพาะจำนวนแถวที่มีค่าทั้งหมด

ขั้นตอน :

➤ ทำตาม ขั้นตอนที่ 01 ของ วิธีการที่ 1 .

➤ เขียนโค้ดต่อไปนี้

1359

ที่นี่ เราได้ประกาศ X เป็น Long , Y และ rng เป็น Range , “D4:D11” คือช่วงตามคอลัมน์ที่เรากำลังนับแถว และในที่สุดเราก็มีกำหนดให้กับ rng .

ลูป FOR จะตรวจสอบว่าแต่ละเซลล์ของช่วงนี้มีค่าใดๆ โดยใช้ฟังก์ชัน COUNTA และ สำหรับเซลล์ที่มีค่า X จะเพิ่มขึ้นครั้งละ 1

สุดท้าย เราจะได้จำนวนแถวทั้งหมดที่มีเซลล์ไม่ว่างผ่านข้อความ กล่อง

➤ กด F5 .

ในที่สุด คุณจะได้ 5 เป็นจำนวนรวมของ แถวที่ไม่ว่างของคอลัมน์ การขาย ในกล่องข้อความ

อ่านเพิ่มเติม: วิธีนับแถวที่กรองใน Excel ด้วย VBA ( คำแนะนำทีละขั้นตอน)

วิธีที่ 7: นับแถวด้วยค่าเฉพาะ

ที่นี่ เราจะนับจำนวนแถวทั้งหมดด้วยมูลค่าการขาย $2,522.00 จากคอลัมน์ การขาย

ขั้นตอน :

➤ ติดตาม ขั้นตอน -01 ของ เมธอด-1 .

➤ เขียนโค้ดต่อไปนี้

3210

ที่นี่ เราได้ประกาศ X เป็น Long , Y และ rng เป็น Range , “D4:D11” คือช่วงที่ขึ้นอยู่กับ เรากำลังนับแถวและสุดท้ายเราได้กำหนดให้ rng

การวนซ้ำ FOR จะตรวจสอบว่าเซลล์ใดในช่วงนี้มีค่าการขาย 2522 โดยใช้ฟังก์ชัน COUNTIF และสำหรับเซลล์ที่มีค่านี้ X จะเพิ่มขึ้นทีละ 1 ในแต่ละครั้ง

สุดท้าย เราจะได้จำนวนแถวทั้งหมดที่มีค่า 2522 ผ่านข้อความกล่อง

➤ กด F5 .

ในที่สุด คุณจะได้ 3 เป็นจำนวนแถวทั้งหมด ของคอลัมน์ ยอดขาย ที่มีมูลค่าการขาย $2,522.00 ในกล่องข้อความ

อ่านเพิ่มเติม: Excel VBA: นับแถวด้วยข้อมูลเฉพาะ (8 ตัวอย่าง)

วิธีที่ 8: นับแถวที่มีค่ามากกว่าค่าเฉพาะ

ในส่วนนี้ เราจะ นับจำนวนแถวทั้งหมดที่มีค่ามากกว่า $3000.00 ในคอลัมน์ การขาย

Steps :

➤ ทำตาม Step-01 of Method-1 .

➤ เขียนโค้ดต่อไปนี้

5894

ในที่นี้ เราได้ประกาศให้ X เป็น Long , Y และ rng เป็น Range , “D4:D11” คือช่วงตามคอลัมน์ที่เรากำลังนับแถว และสุดท้ายเราได้กำหนดให้ rng .

ค่า FOR การวนซ้ำจะตรวจสอบว่าเซลล์ใดในช่วงนี้มีมูลค่าการขายมากกว่า 3000 โดยใช้ ฟังก์ชัน COUNTIF (หรือคุณจะลองใช้เซลล์อื่นก็ได้ เงื่อนไขต่างๆ เช่น น้อยกว่า มากกว่า หรือเท่ากับ ฯลฯ) และสำหรับเซลล์ที่มีค่านี้ X จะเพิ่มขึ้นครั้งละ 1

สุดท้าย เราจะได้หมายเลขแถวทั้งหมดที่มีค่ามากกว่า 3000 ผ่านกล่องข้อความ

➤ กด F5

หลังจากนั้น คุณจะมี 3 เป็นแถวจำนวนรวมของคอลัมน์ การขาย ที่มีการขายค่าที่มากกว่า $3,000.00 ในกล่องข้อความ

อ่านเพิ่มเติม: Excel นับแถวที่มีค่าอย่างไร (8 วิธี)

วิธีที่ 9: นับแถวด้วยสตริงข้อความเฉพาะ

เราจะได้จำนวนแถวที่มี แอปเปิล ทั้งหมดหรือบางส่วนในคอลัมน์ ผลิตภัณฑ์

ขั้นตอน :

➤ ปฏิบัติตาม ขั้นตอน- 01 of Method-1 .

➤ เขียนโค้ดต่อไปนี้

1607

ที่นี่ เราได้ประกาศ X เป็น Long , Y และ rng เป็น Range , “B4:B11” คือช่วงตามคอลัมน์ที่เรา กำลังนับแถว และสุดท้ายเราได้กำหนดให้ rng .

ลูป FOR จะตรวจสอบว่าเซลล์ใดในช่วงนี้มีสตริงข้อความ “นำไปใช้” โดยใช้ ฟังก์ชัน COUNTIF (ในที่นี้ จะนับทั้งการจับคู่แบบตรงทั้งหมดและแบบบางส่วนโดยใช้สัญลักษณ์ ดอกจัน ก่อนและหลังสตริง) และ สำหรับเซลล์ที่มีค่านี้ X จะเพิ่มขึ้นทีละ 1 แต่ละครั้ง จ.

สุดท้าย เราจะได้จำนวนแถวทั้งหมดพร้อมสตริงข้อความ apple ผ่านกล่องข้อความ

➤ กด F5 .

จากนั้น คุณจะมี 2 เป็นจำนวนแถวทั้งหมดของคอลัมน์ ผลิตภัณฑ์ ที่มีสตริงข้อความ แอปเปิ้ล และ สับปะรด ในกล่องข้อความ

อ่านเพิ่มเติม: วิธีนับแถวด้วยข้อความใน Excel (ง่ายที่สุด8 วิธี)

ส่วนการปฏิบัติ

สำหรับการฝึกฝนด้วยตัวเอง เราได้จัดทำส่วน วิธีปฏิบัติ ดังด้านล่างในชีตที่ชื่อว่า วิธีปฏิบัติ . โปรดดำเนินการด้วยตัวเอง

บทสรุป

ในบทความนี้ เราพยายามครอบคลุมวิธีการนับแถวที่มีข้อมูลในคอลัมน์โดยใช้ Excel VBA ได้อย่างง่ายดาย หวังว่าคุณจะพบว่ามีประโยชน์ หากคุณมีข้อเสนอแนะหรือคำถามใดๆ โปรดแบ่งปันในส่วนความคิดเห็น

Hugh West เป็นผู้ฝึกอบรมและนักวิเคราะห์ Excel ที่มีประสบการณ์สูงและมีประสบการณ์มากกว่า 10 ปีในอุตสาหกรรมนี้ เขาสำเร็จการศึกษาระดับปริญญาตรีสาขาการบัญชีและการเงิน และปริญญาโทสาขาบริหารธุรกิจ Hugh มีความหลงใหลในการสอนและได้พัฒนาแนวทางการสอนที่เป็นเอกลักษณ์ซึ่งง่ายต่อการติดตามและเข้าใจ ความรู้ความเชี่ยวชาญของเขาเกี่ยวกับ Excel ช่วยให้นักเรียนและผู้เชี่ยวชาญหลายพันคนทั่วโลกพัฒนาทักษะและความเป็นเลิศในอาชีพการงาน ฮิวจ์แบ่งปันความรู้ของเขากับคนทั้งโลกผ่านบล็อก โดยเสนอบทช่วยสอน Excel ฟรีและการฝึกอบรมออนไลน์เพื่อช่วยให้บุคคลและธุรกิจบรรลุศักยภาพสูงสุดของตนเอง