# 12.11 Last row आणि last column

Source: https://ravindrabagale.com/mr/excel/ch12-macros-and-vba/12-11-finding-the-last-row-and-column.html
Language: mr (Marathi with English technical terms)

रोज data वाढत असेल तर शेवटची row 11 किंवा 5000 hard-code करू नका. ws आधी target worksheetला Set करा.

Dim lastRow As Long, lastCol As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row          ' last filled row in column A
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column   ' last filled column in row 1

Column Aच्या तळापासून वर गेल्यावर शेवटची populated cell मिळते. Column A प्रत्येक recordमध्ये भरलेला असावा. LastCol हे row 1मधले शेवटचे header शोधतं; dataमधले दूरचे stray values नाही.

Edge cases

Column पूर्ण रिकामा असेल तरी End(xlUp).Row 1 देऊ शकतो. If lastRow < 2 Then Exit Subने no-data case हाताळा.

Formula दिसायला blank असला तरी cell populated असू शकतो.

CurrentRegion blank row/columnवर थांबतो. त्याचा Rows.Count हा count आहे; starting row वेगळी असेल तर तो absolute last-row number नाही.

Tableसाठी ws.ListObjects("tblOrders").ListRows.Count; empty Tableमध्ये DataBodyRange Nothing असू शकतो.

4,800 records आणि header row1 असेल तर lastRow4801 आणि ws.Range("A2:A" & lastRow) = A2:A4801.

Practice

Last row, last column आणि ws.Range(ws.Cells(1,1),ws.Cells(lastRow,lastCol)).Address MsgBoxमध्ये दाखवा. Header-only sheet आणि मध्ये blank key असलेली copyही तपासा.

रवींद्र बागले यांची tip

End(xlDown) पहिल्या gapवर थांबू शकतो. Bottom-up search आणि reliable key column निवडा; सोबत no-data case हाताळा.