Dim LastCell As Range Dim LastRow As Long With ws Set LastCell = .Cells.Find(What:="*", _ After:=.Cells(1, 1), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False) If Not LastCell Is Nothing Then LastRow = Last...
2 在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!3 会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！4 会弹出模块编辑窗口！5 在代码编辑窗口输入以下代码：Sub LookForLastCell()Dim lastrng As RangeSet lastrng = Cells.Find("*", , xlFormulas, xlPart...
Best way I know to find "true Last Cell" is to use 2 steps: Pick last cell of UsedRange (i.e. UsedRange.Cells.CountLarge) Move left & up until you find last non-empty row & column with CountA (i.e. WorksheetFunction.CountA(Range)), as it is fast, and works with Hidden / Auto...
With Sheets("Sheet1") If Application.WorksheetFunction.CountA(.Cells) <> 0 Then lastrow = .Cells.Find(What:="*", _ After:=.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row Else lastrow = 1 End...
Find方法在当前工作有数据中进行查找，不需要指定列，也可以确保不会意外地覆盖掉已有数据。其中，参数Look In指定所查找的类型，有三个常量可供选择，即xlV al ues、xlForm ulas和xlCom ments。(1) 常量xlFo rmula s将包含零值...
示例代码 05Sub Find_LastRowxlFormulas()On Error GoTo Finish'获取最后一行MsgBox &qu 8、ot;最后一行是第 " & Cells.Find("*", _ SearchOrder:=xlByRows, LookIn:=xlFormulas, _ SearchDirection:=xlPrevious).EntireRow.Row &行 ”“Exit Sub Finish:MsgBox "没发现数值或公式! "End Sub 下面再列举...
Cells.Find(what:='', SearchFormat:=True).Activate End Sub ‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [小结] 在使用Find方法找到符合条件的数据后,就可以对其进行相应的操作了。您可以: ...
在VBA中,可以使用以下方法来查找选定区域的最后一行和最后一列: 1. 查找最后一行: - 方法一:使用End方法 ```vba Dim lastRow As Long ...
[ 示例代码 06] Sub NextRowUsedAsSub() 选取最后一行的下一行 Range(A Cells.Find(*, LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row + 1).Select End Sub [ 示例代码 07] Sub NextRowUsedAsFunction() 选取最后一行的下一行 (调用函数 ) Range(A LastRow + 1).Select End Sub Public ...
我们点击这个工具的运行按钮: 点击后,代码会运行,资料找中给出的查找颜色是黄色,代码运行将提示给用户最后查找到的单元格位置,截图如下:: 本资料内容应用比较广,可以应用在各种场合,有需要的朋友可以参考。 代码见程序文件:VBA_FindLastSpecificFillColorCell.xlsm...