Excel VBA: นับคอลัมน์ด้วยข้อมูล (2 ตัวอย่าง)

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

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

ดาวน์โหลดแบบฝึกหัดแบบฝึกหัด

คุณสามารถดาวน์โหลดไฟล์ Excel ได้จากลิงก์ต่อไปนี้และแบบฝึกหัดพร้อมกับ it.

นับคอลัมน์ด้วย Data.xlsm

2 วิธีนับคอลัมน์ด้วยข้อมูลโดยใช้ VBA ใน Excel

1 . นับคอลัมน์ทั้งหมดในเวิร์กชีตด้วยข้อมูลโดยใช้โค้ด VBA อย่างง่าย

เราจะเห็น 3 คอลัมน์ในตารางข้อมูลต่อไปนี้ ตอนนี้เราจะใช้รหัส VBA เพื่อกำหนดจำนวนคอลัมน์ที่ใช้ในแผ่นงาน Excel แผ่นเดียว

❶ ก่อนอื่น กด ALT + F11 เพื่อเปิดโปรแกรมแก้ไข VBA

❷ หลังจากนั้นให้สร้างโมดูลใหม่จาก แทรก > โมดูล

❸ หลังจากนั้นคัดลอกสคริปต์ VBA ต่อไปนี้

7185

❹ จากนั้นกลับไปที่โปรแกรมแก้ไข VBA แล้วกด CTRL + V เพื่อวาง

❺ บันทึกโค้ด VBA โดยกดปุ่ม CTRL + S

❻ หากต้องการเรียกใช้โค้ด VBA ไปที่แท็บ นักพัฒนา แล้วคลิก มาโคร หรือเพียงกดปุ่ม F5 คีย์

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

❼ ทั้งหมดที่คุณต้องทำคือ คลิกที่ปุ่ม เรียกใช้

ตอนนี้คุณจะเห็นว่ามีกล่องโต้ตอบปรากฏขึ้น ซึ่งกล่าวว่าจำนวนคอลัมน์ที่มีข้อมูลคือ 3

อ่านเพิ่มเติม: วิธีนับจำนวนคอลัมน์ใน Excel (3 อย่างง่าย วิธีการ)

2. นับคอลัมน์ทั้งหมดในช่วงที่กำหนดด้วยข้อมูลโดยใช้โค้ด Excel VBA

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

หากต้องการใช้โค้ด

❶ ก่อนอื่น ให้เปิดตัวแก้ไข VBA โดยกด ALT + F11

❷ จากนั้นไป ถึง แทรก > โมดูล เพื่อสร้างโมดูลใหม่

❸ หลังจากนั้น ให้คัดลอกสคริปต์ VBA ต่อไปนี้

7578

❹ กลับไปที่โปรแกรมแก้ไข VBA แล้วกด CTRL + V เพื่อวาง

❺ บันทึกโค้ดโดยกด CTRL + S

❻ ไปที่แท็บ นักพัฒนาซอฟต์แวร์ แล้วกด มาโคร เพื่อเปิดหน้าต่าง มาโคร

หรือเพียงแค่กดปุ่ม F5 คีย์เพื่อประโยชน์ของกล่องโต้ตอบ แมโคร

❼ จากกล่องโต้ตอบ เลือกชื่อฟังก์ชัน CountColumnsInARange แล้วกด เรียกใช้ ปุ่ม

สุดท้าย กล่องโต้ตอบขนาดเล็กจะปรากฏขึ้นโดยระบุว่าจำนวนคอลัมน์ทั้งหมดคือ 3

อ่านเพิ่มเติม: วิธีนับคอลัมน์สำหรับ VLOOKUP ใน Excel (2 วิธี)

โค้ด VBA เพิ่มเติมเพื่อนับคอลัมน์ใน Excel

1. ใช้VBA Rangeวิธีสิ้นสุดการส่งคืนหมายเลขคอลัมน์ที่ใช้ล่าสุด

หากต้องการรับหมายเลขคอลัมน์ที่ใช้ล่าสุดในสเปรดชีต Excel

❶ ก่อนอื่น ให้เปิดตัวแก้ไข VBA โดยกด ALT + F11

❷ จากนั้นไปที่ แทรก > โมดูล เพื่อสร้างโมดูลใหม่

❸ คัดลอกโค้ด VBA ต่อไปนี้:

8918

❹ วางและบันทึก โค้ดในตัวแก้ไข VBA

❺ กดปุ่ม F5 เพื่อเรียกใช้โค้ดด้านบน

คุณจะได้คอลัมน์สุดท้าย จำนวนในกล่องโต้ตอบป๊อปอัปตามภาพด้านล่าง:

อ่านเพิ่มเติม: วิธีนับคอลัมน์จนกว่าจะถึงค่าใน Excel

2. ใช้ Range.Find Method เพื่อส่งคืนหมายเลขคอลัมน์ที่ใช้ล่าสุดใน Excel

หากคุณกำลังมองหารหัส VBA เพื่อส่งคืนหมายเลขคอลัมน์ที่ใช้ล่าสุด ให้ทำตามขั้นตอนด้านล่าง :

❶ ก่อนอื่น กด ALT + F11 เพื่อเปิดตัวแก้ไข VBA

❷ หลังจากนั้นให้สร้างโมดูลใหม่จาก แทรก > โมดูล

❸ คัดลอกโค้ด VBA ต่อไปนี้:

7869

❹ จากนั้นกลับไปที่ตัวแก้ไข VBA แล้วกด CTRL + V เพื่อวาง

❺ ตอนนี้ให้บันทึกโค้ด VBA โดยกดปุ่ม CTRL + S

ตอนนี้ กด ปุ่ม F5 เพื่อเรียกใช้โค้ดด้านบน

คุณจะได้รับหมายเลขคอลัมน์ที่ใช้ล่าสุดในกล่องโต้ตอบป๊อปอัปดังภาพด้านล่าง:

<21

สิ่งที่ต้องจำ

  • กด ALT + F11 เพื่อเปิดตัวแก้ไข VBA
  • คุณสามารถกด ALT +F8 เพื่อใช้ประโยชน์จากกล่องโต้ตอบ แมโคร
  • เมื่อต้องการเรียกใช้โค้ด VBA ให้กดปุ่ม F5

สรุป

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

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