我一般用Dim maxrow As Longmaxrow = activesheet.usedrange.rows.count上面这个获取的是表格里已激活单...
1、模块1，HighLight过程，高亮显示：Public LastRange As Range ' 用于存储上次突出显示的区域Public currCell As RangePublic Dic As ObjectPublic blnHighLight As BooleanSub HighLight() On Error Resume Next Dim dataRange As Range Dim currRange As Range Dim lastRow As Long Dim lastCol...
Sub行列()'获取最大行和列(指定)endRow = Cells(Rows.count,1).End(xlUp).Row'行columnmax = Cells(1, Columns.count).End(xlToLeft).Column'列'获取最大行和列(非指定)WithActiveSheet.UsedRange MaxRow%= .Rows.count'获取非空行数maxCol% = .Columns.count'获取非空列数数EndWith'获取使用范围内使用...
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))") 抢...
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...
假设你要操作的列号是ColumnNo 那么该列最后一个非空单元格的行号是 Cells(65536, ColumnNo).End(xlUp).Row 有行号列号，搞定。相当于手选该列最后一格，再按下END+UP 组合键.因为
max_row = .Range("a:a").Rows.Count last_row = .Range("a" & max_row).End(xlUp).Row For i = 6 To last_row total_money = .Range("e" & i).Value first_quarter = .Range("f" & i).Value second_quarter = .Range("g" & i).Value ...
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
maxrow = Range("a65536").End(xlUp).Row arr = Range("a1:b" & maxrow) For i = 1 To UBound(arr) If arr3.Exists(arr(i, 1)) Then Range("e" & arr3(arr(i, 1))) = Range("e" & arr3(arr(i, 1))) + arr(i, 2) ...