blocks|key|1763090|text|Function+LastRow(rng+As+Range)+As+Long
++++Dim+iRowN+As+Long
++++Dim+iRowI+As+Long
++++Dim+iColN+As+Integer
++++Dim+iColI+As+Integer
++++iRowN+=+0
++++iColN+=+rng.Columns.count
++++For+iColI+=+1+To+iColN
++++++++iRowI+=+rng.Columns(iColI).Offset(65536+-+rng.Row,+0).End(xlUp).Row
++++++++If+iRowI+>+iRowN+Then+iRowN+=+iRowI
++++Next
++++LastRow+=+iRowN
End+Function+|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1763091|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>Function LastRow(rng As Range) As Long
 Dim iRowN As Long
 Dim iRowI As Long
 Dim iColN As Integer
 Dim iColI As Integer
 iRowN = 0
 iColN = rng.Columns.count
 For iColI = 1 To iColN
 iRowI = rng.Columns(iColI).Offset(65536 - rng.Row, 0).End(xlUp).Row
 If iRowI &gt; iRowN Then iRowN = iRowI
 Next
 LastRow = iRowN
End Function 
</code></pre>

blocks|key|1548183|text|function+LastRowIndex(byval+w+as+worksheet,+byval+col+as+variant)+as+long
++dim+r+as+range

++set+r+=+application.intersect(w.usedrange,+w.columns(col))
++if+not+r+is+nothing+then
++++set+r+=+r.cells(r.cells.count)

++++if+isempty(r.value)+then
++++++LastRowIndex+=+r.end(xlup).row
++++else
++++++LastRowIndex+=+r.row
++++end+if
++end+if
end+function|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1548184|用法：|unstyled|1548185|?+LastRowIndex(ActiveSheet,+5)
?+LastRowIndex(ActiveSheet,+"AI")|1548186|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|L|8|@]|9|@]|A|$]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$B|C]]|$1|I|3|-4|5|F|7|N|8|@]|9|@]|A|$]]]|J|$]]

<pre><code>function LastRowIndex(byval w as worksheet, byval col as variant) as long
 dim r as range

 set r = application.intersect(w.usedrange, w.columns(col))
 if not r is nothing then
 set r = r.cells(r.cells.count)

 if isempty(r.value) then
 LastRowIndex = r.end(xlup).row
 else
 LastRowIndex = r.row
 end if
 end if
end function
</code></pre>

Usage:

<pre><code>? LastRowIndex(ActiveSheet, 5)
? LastRowIndex(ActiveSheet, "AI")
</code></pre>

blocks|key|1548262|text|这样如何：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1548263|Function+GetLastRow(strSheet,+strColumn)+As+Long
++++Dim+MyRange+As+Range

++++Set+MyRange+=+Worksheets(strSheet).Range(strColumn+&+"1")
++++GetLastRow+=+Cells(Rows.Count,+MyRange.Column).End(xlUp).Row
End+Function|code-block|syntax|javascript|1548264|对于注释，这将返回最后一个单元格的行号，即使最后一行中只有一个单元格有数据：|1548265|Cells.Find("*",+SearchOrder:=xlByRows,+SearchDirection:=xlPrevious).Row|1548266|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

How about:

<pre><code>Function GetLastRow(strSheet, strColumn) As Long
 Dim MyRange As Range

 Set MyRange = Worksheets(strSheet).Range(strColumn &amp; "1")
 GetLastRow = Cells(Rows.Count, MyRange.Column).End(xlUp).Row
End Function
</code></pre>

Regarding a comment, this will return the row number of the last cell even when only a single cell in the last row has data:

<pre><code>Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
</code></pre>

blocks|key|1763223|text|第一行将光标移动到列中的最后一个非空行。第二行打印该列的行。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1763224|Selection.End(xlDown).Select
MsgBox(ActiveCell.Row)|code-block|syntax|javascript|1763225|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

The first line moves the cursor to the last non-empty row in the column. The second line prints that columns row.

<pre><code>Selection.End(xlDown).Select
MsgBox(ActiveCell.Row)
</code></pre>

blocks|key|1763281|text|您应该使用.End(xlup)，但您可能希望使用以下代码，而不是65536：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1763282|sheetvar.Rows.Count|code-block|syntax|javascript|1763283|这样它就可以在Excel2007上工作，我相信它有超过65536行|1763284|entityMap^0|5|A|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|R|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|S|8|@]|D|@]|E|$]]|$1|M|3|-4|5|6|7|T|8|@]|D|@]|E|$]]]|N|$]]

You should use the <code>.End(xlup)</code> but instead of using 65536 you might want to use:

<pre><code>sheetvar.Rows.Count
</code></pre>

That way it works for Excel 2007 which I believe has more than 65536 rows

blocks|key|1763299|text|Public+Function+LastData(rCol+As+Range)+As+Range++++
++++Set+LastData+=+rCol.Find("*",+rCol.Cells(1),+,+,+,+xlPrevious)++++
End+Function|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1763300|用法：?lastdata(activecell.EntireColumn).Address|unstyled|offset|length|style|CODE|1763301|entityMap^0|0|3|16|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|N|8|@$G|O|H|P|I|J]]|9|@]|A|$]]|$1|K|3|-4|5|F|7|Q|8|@]|9|@]|A|$]]]|L|$]]

<pre><code>Public Function LastData(rCol As Range) As Range 
 Set LastData = rCol.Find("*", rCol.Cells(1), , , , xlPrevious) 
End Function
</code></pre>

Usage: <code>?lastdata(activecell.EntireColumn).Address</code>

blocks|key|1548437|text|以下是查找最后一行、最后一列或最后一个单元格的解决方案。它解决了它找到的列的A1+R1C1引用样式困境。我希望我能给予信任，但找不到/不记得我是从哪里得到的，所以“谢谢！”不管是谁在某个地方发布了原始代码。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1548438|Sub+Macro1
++++Sheets("Sheet1").Select
++++MsgBox+"The+last+row+found+is:+"+&+Last(1,+ActiveSheet.Cells)
++++MsgBox+"The+last+column+(R1C1)+found+is:+"+&+Last(2,+ActiveSheet.Cells)
++++MsgBox+"The+last+cell+found+is:+"+&+Last(3,+ActiveSheet.Cells)
++++MsgBox+"The+last+column+(A1)+found+is:+"+&+Last(4,+ActiveSheet.Cells)
End+Sub

Function+Last(choice+As+Integer,+rng+As+Range)
'+1+=+last+row
'+2+=+last+column+(R1C1)
'+3+=+last+cell
'+4+=+last+column+(A1)
++++Dim+lrw+As+Long
++++Dim+lcol+As+Integer

++++Select+Case+choice
++++Case+1:
++++++++On+Error+Resume+Next
++++++++Last+=+rng.Find(What:="*",+_
++++++++++++++++++++++++After:=rng.Cells(1),+_
++++++++++++++++++++++++LookAt:=xlPart,+_
++++++++++++++++++++++++LookIn:=xlFormulas,+_
++++++++++++++++++++++++SearchOrder:=xlByRows,+_
++++++++++++++++++++++++SearchDirection:=xlPrevious,+_
++++++++++++++++++++++++MatchCase:=False).Row
++++++++On+Error+GoTo+0

++++Case+2:
++++++++On+Error+Resume+Next
++++++++Last+=+rng.Find(What:="*",+_
++++++++++++++++++++++++After:=rng.Cells(1),+_
++++++++++++++++++++++++LookAt:=xlPart,+_
++++++++++++++++++++++++LookIn:=xlFormulas,+_
++++++++++++++++++++++++SearchOrder:=xlByColumns,+_
++++++++++++++++++++++++SearchDirection:=xlPrevious,+_
++++++++++++++++++++++++MatchCase:=False).Column
++++++++On+Error+GoTo+0

++++Case+3:
++++++++On+Error+Resume+Next
++++++++lrw+=+rng.Find(What:="*",+_
+++++++++++++++++++++++After:=rng.Cells(1),+_
+++++++++++++++++++++++LookAt:=xlPart,+_
+++++++++++++++++++++++LookIn:=xlFormulas,+_
+++++++++++++++++++++++SearchOrder:=xlByRows,+_
+++++++++++++++++++++++SearchDirection:=xlPrevious,+_
+++++++++++++++++++++++MatchCase:=False).Row
++++++++lcol+=+rng.Find(What:="*",+_
++++++++++++++++++++++++After:=rng.Cells(1),+_
++++++++++++++++++++++++LookAt:=xlPart,+_
++++++++++++++++++++++++LookIn:=xlFormulas,+_
++++++++++++++++++++++++SearchOrder:=xlByColumns,+_
++++++++++++++++++++++++SearchDirection:=xlPrevious,+_
++++++++++++++++++++++++MatchCase:=False).Column
++++++++Last+=+Cells(lrw,+lcol).Address(False,+False)
++++++++If+Err.Number+>+0+Then
++++++++++++Last+=+rng.Cells(1).Address(False,+False)
++++++++++++Err.Clear
++++++++End+If
++++++++On+Error+GoTo+0
++++Case+4:
++++++++On+Error+Resume+Next
++++++++Last+=+rng.Find(What:="*",+_
++++++++++++++++++++++++After:=rng.Cells(1),+_
++++++++++++++++++++++++LookAt:=xlPart,+_
++++++++++++++++++++++++LookIn:=xlFormulas,+_
++++++++++++++++++++++++SearchOrder:=xlByColumns,+_
++++++++++++++++++++++++SearchDirection:=xlPrevious,+_
++++++++++++++++++++++++MatchCase:=False).Column
++++++++On+Error+GoTo+0
++++++++Last+=+R1C1converter("R1C"+&+Last,+1)
++++++++For+i+=+1+To+Len(Last)
++++++++++++s+=+Mid(Last,+i,+1)
++++++++++++If+Not+s+Like+"#"+Then+s1+=+s1+&+s
++++++++Next+i
++++++++Last+=+s1

++++End+Select

End+Function

Function+R1C1converter(Address+As+String,+Optional+R1C1_output+As+Integer,+Optional+RefCell+As+Range)+As+String
++++'Converts+input+address+to+either+A1+or+R1C1+style+reference+relative+to+RefCell
++++'If+R1C1_output+is+xlR1C1,+then+result+is+R1C1+style+reference.
++++'If+R1C1_output+is+xlA1+(or+missing),+then+return+A1+style+reference.
++++'If+RefCell+is+missing,+then+the+address+is+relative+to+the+active+cell
++++'If+there+is+an+error+in+conversion,+the+function+returns+the+input+Address+string
++++Dim+x+As+Variant
++++If+RefCell+Is+Nothing+Then+Set+RefCell+=+ActiveCell
++++If+R1C1_output+=+xlR1C1+Then
++++++++x+=+Application.ConvertFormula(Address,+xlA1,+xlR1C1,+,+RefCell)+'Convert+A1+to+R1C1
++++Else
++++++++x+=+Application.ConvertFormula(Address,+xlR1C1,+xlA1,+,+RefCell)+'Convert+R1C1+to+A1
++++End+If
++++If+IsError(x)+Then
++++++++R1C1converter+=+Address
++++Else
++++++++'If+input+address+is+A1+reference+and+A1+is+requested+output,+then+Application.ConvertFormula
++++++++'surrounds+the+address+in+single+quotes.
++++++++If+Right(x,+1)+=+"'"+Then
++++++++++++R1C1converter+=+Mid(x,+2,+Len(x)+-+2)
++++++++Else
++++++++++++x+=+Application.Substitute(x,+"$",+"")
++++++++++++R1C1converter+=+x
++++++++End+If
++++End+If
End+Function|code-block|syntax|javascript|1548439|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Here's a solution for finding the last row, last column, or last cell. It addresses the A1 R1C1 Reference Style dilemma for the column it finds. Wish I could give credit, but can't find/remember where I got it from, so "Thanks!" to whoever it was that posted the original code somewhere out there.

<pre><code>Sub Macro1
 Sheets("Sheet1").Select
 MsgBox "The last row found is: " &amp; Last(1, ActiveSheet.Cells)
 MsgBox "The last column (R1C1) found is: " &amp; Last(2, ActiveSheet.Cells)
 MsgBox "The last cell found is: " &amp; Last(3, ActiveSheet.Cells)
 MsgBox "The last column (A1) found is: " &amp; Last(4, ActiveSheet.Cells)
End Sub

Function Last(choice As Integer, rng As Range)
' 1 = last row
' 2 = last column (R1C1)
' 3 = last cell
' 4 = last column (A1)
 Dim lrw As Long
 Dim lcol As Integer

 Select Case choice
 Case 1:
 On Error Resume Next
 Last = rng.Find(What:="*", _
 After:=rng.Cells(1), _
 LookAt:=xlPart, _
 LookIn:=xlFormulas, _
 SearchOrder:=xlByRows, _
 SearchDirection:=xlPrevious, _
 MatchCase:=False).Row
 On Error GoTo 0

 Case 2:
 On Error Resume Next
 Last = rng.Find(What:="*", _
 After:=rng.Cells(1), _
 LookAt:=xlPart, _
 LookIn:=xlFormulas, _
 SearchOrder:=xlByColumns, _
 SearchDirection:=xlPrevious, _
 MatchCase:=False).Column
 On Error GoTo 0

 Case 3:
 On Error Resume Next
 lrw = rng.Find(What:="*", _
 After:=rng.Cells(1), _
 LookAt:=xlPart, _
 LookIn:=xlFormulas, _
 SearchOrder:=xlByRows, _
 SearchDirection:=xlPrevious, _
 MatchCase:=False).Row
 lcol = rng.Find(What:="*", _
 After:=rng.Cells(1), _
 LookAt:=xlPart, _
 LookIn:=xlFormulas, _
 SearchOrder:=xlByColumns, _
 SearchDirection:=xlPrevious, _
 MatchCase:=False).Column
 Last = Cells(lrw, lcol).Address(False, False)
 If Err.Number &gt; 0 Then
 Last = rng.Cells(1).Address(False, False)
 Err.Clear
 End If
 On Error GoTo 0
 Case 4:
 On Error Resume Next
 Last = rng.Find(What:="*", _
 After:=rng.Cells(1), _
 LookAt:=xlPart, _
 LookIn:=xlFormulas, _
 SearchOrder:=xlByColumns, _
 SearchDirection:=xlPrevious, _
 MatchCase:=False).Column
 On Error GoTo 0
 Last = R1C1converter("R1C" &amp; Last, 1)
 For i = 1 To Len(Last)
 s = Mid(Last, i, 1)
 If Not s Like "#" Then s1 = s1 &amp; s
 Next i
 Last = s1

 End Select

End Function

Function R1C1converter(Address As String, Optional R1C1_output As Integer, Optional RefCell As Range) As String
 'Converts input address to either A1 or R1C1 style reference relative to RefCell
 'If R1C1_output is xlR1C1, then result is R1C1 style reference.
 'If R1C1_output is xlA1 (or missing), then return A1 style reference.
 'If RefCell is missing, then the address is relative to the active cell
 'If there is an error in conversion, the function returns the input Address string
 Dim x As Variant
 If RefCell Is Nothing Then Set RefCell = ActiveCell
 If R1C1_output = xlR1C1 Then
 x = Application.ConvertFormula(Address, xlA1, xlR1C1, , RefCell) 'Convert A1 to R1C1
 Else
 x = Application.ConvertFormula(Address, xlR1C1, xlA1, , RefCell) 'Convert R1C1 to A1
 End If
 If IsError(x) Then
 R1C1converter = Address
 Else
 'If input address is A1 reference and A1 is requested output, then Application.ConvertFormula
 'surrounds the address in single quotes.
 If Right(x, 1) = "'" Then
 R1C1converter = Mid(x, 2, Len(x) - 2)
 Else
 x = Application.Substitute(x, "$", "")
 R1C1converter = x
 End If
 End If
End Function
</code></pre>

blocks|key|1548463|text|简单快速：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1548464|Dim+lastRow+as+long
Range("A1").select
lastRow+=+Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row|code-block|syntax|javascript|1548465|示例用法：|1548466|cells(lastRow,1)="Ultima+Linha,+Last+Row.+Youpi!!!!"

'or+

Range("A"+&+lastRow).Value+=+"FIM,+THE+END"|1548467|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

Simple and quick:

<pre><code>Dim lastRow as long
Range("A1").select
lastRow = Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row
</code></pre>

Example use:

<pre><code>cells(lastRow,1)="Ultima Linha, Last Row. Youpi!!!!"

'or 

Range("A" &amp; lastRow).Value = "FIM, THE END"
</code></pre>

blocks|key|1763436|text|Sub+test()
++++MsgBox+Worksheets("sheet_name").Range("A65536").End(xlUp).Row
End+Sub|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1763437|由于"A65536"，这将在列A中查找一个值。|unstyled|offset|length|style|CODE|1763438|entityMap^0|0|2|8|F|1|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|N|8|@$G|O|H|P|I|J]|$G|Q|H|R|I|J]]|9|@]|A|$]]|$1|K|3|-4|5|F|7|S|8|@]|9|@]|A|$]]]|L|$]]

<pre><code>Sub test()
 MsgBox Worksheets("sheet_name").Range("A65536").End(xlUp).Row
End Sub
</code></pre>

This is looking for a value in column <code>A</code> because of <code>"A65536"</code>.

blocks|key|1763526|text|我想添加一种使用UsedRange查找最后使用的行的更可靠的方法：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1763527|lastRow+=+Sheet1.UsedRange.Row+%2B+Sheet1.UsedRange.Rows.Count+-+1|code-block|syntax|javascript|1763528|类似地，要查找最后使用的列，可以使用see+this|1763529|​|1763530|📷|atomic|1763531|1763532|即时窗口中的结果：|1763533|?Sheet1.UsedRange.Row%2BSheet1.UsedRange.Rows.Count-1
+21+|1763534|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/questions/11926972/excel-vba-finding-the-last-column-with-data/35945397#35945397|1|IMAGE|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/d68593d8d280979ef3dbf748a2851566.jpeg|imageAlt^0|8|9|0|0|I|8|0|0|0|0|1|1|0|0|0|0^^$0|@$1|2|3|4|5|6|7|1A|8|@$9|1B|A|1C|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|1D|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|1E|8|@]|D|@$9|1F|A|1G|1|1H]]|E|$]]|$1|M|3|N|5|6|7|1I|8|@]|D|@]|E|$]]|$1|O|3|P|5|Q|7|1J|8|@]|D|@$9|1K|A|1L|1|1M]]|E|$]]|$1|R|3|N|5|6|7|1N|8|@]|D|@]|E|$]]|$1|S|3|T|5|6|7|1O|8|@]|D|@]|E|$]]|$1|U|3|V|5|H|7|1P|8|@]|D|@]|E|$I|J]]|$1|W|3|-4|5|6|7|1Q|8|@]|D|@]|E|$]]]|X|$Y|$5|Z|10|11|E|$12|13]]|14|$5|15|10|16|E|$17|18|19|-4]]]]

I would like to add one more reliable way using <code>UsedRange</code> to find the last used row:

<pre><code>lastRow = Sheet1.UsedRange.Row + Sheet1.UsedRange.Rows.Count - 1
</code></pre>

Similarly to find the last used column you can <a href="https://stackoverflow.com/questions/11926972/excel-vba-finding-the-last-column-with-data/35945397#35945397">see this</a>

<a href="https://i.stack.imgur.com/46aa0.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/46aa0.jpg" alt="enter image description here"></a>

Result in Immediate Window:

<pre><code>?Sheet1.UsedRange.Row+Sheet1.UsedRange.Rows.Count-1
 21 
</code></pre>

blocks|key|1548667|text|Public+Function+GetLastRow(ByVal+SheetName+As+String)+As+Integer
++++Dim+sht+As+Worksheet
++++Dim+FirstUsedRow+As+Integer+++++'the+first+row+of+UsedRange
++++Dim+UsedRows+As+Integer+++++++++'+number+of+rows+used

++++Set+sht+=+Sheets(SheetName)
++++''UsedRange.Rows.Count+for+the+empty+sheet+is+1
++++UsedRows+=+sht.UsedRange.Rows.Count
++++FirstUsedRow+=+sht.UsedRange.Row
++++GetLastRow+=+FirstUsedRow+%2B+UsedRows+-+1

++++Set+sht+=+Nothing
End+Function|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1548668|sheet.UsedRange.Rows.Count:返回使用的行数，不包括使用的第一行以上的空行|unstyled|1548669|如果第1行为空，并且最后使用的行为10，则UsedRange.Rows.Count将返回9，而不是10。|1548670|此函数用于计算UsedRange的第一行行数和UsedRange行数。|1548671|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|N|8|@]|9|@]|A|$]]|$1|G|3|H|5|F|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|F|7|P|8|@]|9|@]|A|$]]|$1|K|3|-4|5|F|7|Q|8|@]|9|@]|A|$]]]|L|$]]

<pre><code>Public Function GetLastRow(ByVal SheetName As String) As Integer
 Dim sht As Worksheet
 Dim FirstUsedRow As Integer 'the first row of UsedRange
 Dim UsedRows As Integer ' number of rows used

 Set sht = Sheets(SheetName)
 ''UsedRange.Rows.Count for the empty sheet is 1
 UsedRows = sht.UsedRange.Rows.Count
 FirstUsedRow = sht.UsedRange.Row
 GetLastRow = FirstUsedRow + UsedRows - 1

 Set sht = Nothing
End Function
</code></pre>

sheet.UsedRange.Rows.Count: retrurn number of rows used, not include empty row above the first row used

if row 1 is empty, and the last used row is 10, UsedRange.Rows.Count will return 9, not 10.

This function calculate the first row number of UsedRange plus number of UsedRange rows.

blocks|key|1763613|text|Last_Row+=+Range("A1").End(xlDown).Row|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1763614|为了验证，假设您想用单元格C1中的数据打印最后一行的行号。|unstyled|1763615|Range("C1").Select
Last_Row+=+Range("A1").End(xlDown).Row
ActiveCell.FormulaR1C1+=+Last_Row|1763616|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|L|8|@]|9|@]|A|$]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$B|C]]|$1|I|3|-4|5|F|7|N|8|@]|9|@]|A|$]]]|J|$]]

<pre><code>Last_Row = Range("A1").End(xlDown).Row
</code></pre>

Just to verify, let's say you want to print the row number of the last row with the data in cell C1. 

<pre><code>Range("C1").Select
Last_Row = Range("A1").End(xlDown).Row
ActiveCell.FormulaR1C1 = Last_Row
</code></pre>

How can I find the last row that contains data in a specific column and on a specific sheet?

How can I find last row that contains data in a specific column?

如何在特定列和特定工作表中找到包含数据的最后一行？

问如何找到包含特定列中数据的最后一行？
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何找到包含特定列中数据的最后一行？EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何找到包含特定列中数据的最后一行？
EN