Sub DetermineLastUsedRow() Dim lastRow As Long Dim namedRange As Range ' 获取命名范围 Set namedRange = ThisWorkbook.Names("LastUsedRow").RefersToRange ' 确定上次使用的行 lastRow = namedRange.Row ' 在Immediate窗口中打印上次使用的
LastUsedRow =.UsedRange.Rows.Count + .UsedRange.Row -1 EndWith End Function 使用SpecialCells方法 也可以用SpecialCells方法实现查找最后一行,其常量xlCellTypeLastCell代表在”已使用区域”中的最后一个单元格,与UsedRange属性稍有不同的是,当您在最后一行中输入数据后,又将其删除,则此数据所在的单元格也包含在已...
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 '- - - - - -...
1、用 VBA 在 Excel中找寻最后一行的方法使用 End 属性在 ExcelVBA中,使用 End(xlUp)查找最后一行是最常使用且最为简单的方 法,它假设要有一列总包含有数据 (数字、文本和公式等 ),并且在该列中最后输 入数据的单元格的下一行不会包含数据,因此不必担心会覆盖掉已有数据。但 该方法有两个缺点:(1)仅局限...
PAGE PAGE # 用 VBA 在 Excel 中找寻最后一行的方法:使用 End 属性在 ExcelVBA 中,使用 End(xlUp) 查找最后一行是最常使用且最为简单的方法,它假设要有一列总包含有 数据 (数字、文本和公式等 ),并且在该列中最后输入数据的单元格的下一行不会包含数据,因此不必担心 会覆盖掉已有数据。但该方法有两个缺点...
用VBA 在 Excel 中找寻最后一行的方法: 使用 End 属性 在 ExcelVBA 中, 使用 End(xlUp)查找最后一行是最常使用且最为简单的方法, 它假设要有一列总包含有数据(数字、 文本和公式等), 并且在该列中最后输入数据的单元格的下一行不会包含数据, 因此不必担心会覆盖掉已有数据。 但该方法有两个缺点: (1) 仅...
估计你也膜不动了。因此，这一次我们就通过VBA程序完成这个任务，从此妈妈再也不担心我数数到头秃。
用VBA在Excel中找寻最后一行的方法: 使用End属性 在ExcelVBA中,使用End(xlUp)查找最后一行是最常使用且最为简单的方法,它假设要有一列总包含有 数据(数字、文本和公式等),并且在该列中最后输入数据的单元格的下一行不会包含数据,因此...
OFFICE之门:Excel-VBA基础(1):如何在菜单栏显示“开发工具” 选择【开发工具】→【插入】命令,展现如下图所示的控件列表,其中分组框、单选按钮、复选框、下拉列表框、标签的使用频率最高。 单击控件列表中的【分组框】按钮,鼠标变成黑十字形状,在工作表的文本框“您的基本情况(必答题):”内,按住鼠标左键不放,...
Public Function LastRowInColumn(Column As String) As Long LastRowInColumn = Range(Column & ).End(xlUp).Row End Function 注意,要输入新数据的列可能与我们所查找最后一行时所使用的列不同,例如,在上例中,我们可以修改为在B列中查找该列的最后一行,而在A列相应行的下一行中输入新的数据。 --- ...