วิธีใช้ VBA เพื่อไปยังแถวสุดท้ายในแผ่นงาน Excel

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

1

เรียกใช้ Excel และเปิดสเปรดชีตที่มีหลายคอลัมน์

2

กด“ Alt-F11” เพื่อเปิดตัวแก้ไข“ Visual Basic” และคลิก“ แทรก | โมดูล” VBA เพิ่มโมดูลใหม่ไปยังหน้าต่างโครงการ

3

วางรหัสต่อไปนี้ลงในหน้าต่างแก้ไขที่ปรากฏทางด้านขวาของหน้าต่างโครงการ:

ย่อย SelectLastRow () Dim finalRow As Integer

finalRow = ActiveSheet.UsedRange.Rows.Count

ถ้า finalRow = 0 ดังนั้น finalRow = 1 สิ้นสุดถ้า

แถว (finalRow). เลือก End Sub

ส่วนย่อยนี้เป็นตัวกำหนดแถวสุดท้ายของสเปรดชีตโดยตรวจสอบคุณสมบัติการนับของคอลเลกชันแถว ส่วนย่อยจะเก็บค่านั้นในตัวแปร finalRow คำสั่งสุดท้ายของ Sub ส่งค่า finalRow ไปที่เมธอด VBA Select

4

กด "F5" เพื่อเรียกใช้ย่อย วิธีการเลือกจะค้นหาแถวสุดท้ายของสเปรดชีตไปที่แถวนั้นและไฮไลต์ไว้

ปลาย

  • คำสั่งแถว (finalRow) .Select มีประโยชน์สำหรับการข้ามไปยังแถวใดก็ได้ในสเปรดชีต หากคุณตั้งค่า finalRow เป็นค่าอื่นเช่น 1 คำสั่ง Select จะไปที่แถวนั้นเมื่อรัน

โพสต์ยอดนิยม