我一般用Dim maxrow As Longmaxrow = activesheet.usedrange.rows.count上面这个获取的是表格里已激活单...
MaxRow%= .Rows.count'获取非空行数maxCol% = .Columns.count'获取非空列数数EndWith'获取使用范围内使用的行数、列数x =UsedRange.Rows.count y=UsedRange.Columns.countend sub
Dim rng As Range Dim maxRow As Integer Set rng = Range("A1").CurrentRegion maxRow = rng.Rows.Count方法2:UsedRange法 🌐 这种方法适用于数据起点不确定的情况。通过获取工作表的已使用区域,可以确定最大行号。vba Dim i As Integer i = Sheet1.UsedRange.Rows.Count方法3:End函数法 🔍 这种方法适...
4、第四度种方法:ActiveSheet.range("A1").CurrentRegion.Rows.Count 5、第五种方法:ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 6、第六种方法:ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 7、第七种方法:MaxRow =Application.Evaluate("=MAX((A1:A1048576<>""")*ROW(1:1048576))") 抢...
dy.Cells(dy_max_row + 3, "H") = mx.Cells(r + 1, "E") '设计备注 全代码 Sub 自动生成标签() Set mx = Sheets("明细") Set mb = Sheets("标签模板") '循环Sheet判断时候存在打印表,如果存在,就删除 For Each sht In Worksheets
通过 ActiveSheet.Rows.Count 获取当前工作表允许的最大行数,并将其赋值给MaxRow。接下来,利用 ActiveSheet.Range('a' & MaxRow).End(xlUp).Row 这一巧妙的操作,从 A 列的最大行数位置向上查找,最终获取到 A 列的最后一行数据行号,并将其存储在 lastRow 变量中。运行这段代码,结果显示“A 列的最后一行...
rowmax =UBound(Range("a1").CurrentRegion) '取得A列的最大行数 Worksheets(1).UsedRange.Columns.count '获取最大列数和最大行数的写法 Worksheets(1).UsedRange.Rows.Count 缺点:只要行被使用过,即使数据后来被清空,也算被使用过 ...
X(i, 2) = Application.Max(T)W = Application.Match(X(i, 2), T, 0) - 1 X(i, 1) = k(W)T(W) = ""Next [e:f].Clear [E1] = "排序": [f1] = "重复次数"Sheets("59").[E2].Resize(mydic.Count, 2) = X End Sub 代码解析：1 上述代码实现了: 这些数据首先装到字典mydic...
Maxrow = ActiveWorkbook.Worksheets(sheet_name).UsedRange.Rows.Count '获取工作表的行长 Maxcol = ActiveWorkbook.Worksheets(sheet_name).UsedRange.Columns.Count '获取工作表的列长 '排序关键字所在列 col_1 = 1 '按关键字排序 Application.Worksheets(sheet_name).Sort.SortFields.Clear '清空排序集合,清空当前...
假定MaxRow变量的值是100，那么这句的意思就是指单元格 A2:B100 从字面上看MaxRow代表最大的行号，这句就是指不包括第一行（往往是表头）的AB两列有数据的单元格