从blank行到第2行，以step=1递减，查看Cells(blank,7)是否为空，如果为空就删除第blank行。
Range("k65536").End(xlUp).Row K列数据区域最后一行的行号 最后,再看看一段VBA调用的代码吧: Dim i, M, iRow, sh, arr M = 0.0015 For Each sh In ThisWorkbook.Sheets iRow = sh.[D65535].End(xlUp).Row ReDim arr(1 To iRow, 1 To 2) arr = sh.Range("D3:E" & iRow) For i = 2...
iRow = sh.[D65535].End(xlUp).Row ReDim arr(1 To iRow, 1 To 2) arr = sh.Range("D3:E" & iRow) For i = 2 To UBound(arr) arr(i, 1) = arr(i, 1) * M arr(i, 2) = arr(i, 2) * M Next arr(1, 1) = Application.Substitute(arr(1, 1), "平方米", "亩") arr(1...
iRow = sh.[D65535].End(xlUp).Row ReDim arr(1 To iRow, 1 To 2) arr = sh.Range("D3:E" & iRow) For i = 2 To UBound(arr) arr(i, 1) = arr(i, 1) * M arr(i, 2) = arr(i, 2) * M Next arr(1, 1) = Application.Substitute(arr(1, 1), "平方米", "亩") arr(1...
Rows.Count是第一列的最大行数；Cells(Rows.Count, 1).End(xlUp).Row整体意思是第一列最后一个有数据的行的行号。
2003版的表格最多有65356行，从最后一行向上，那个有数据的行 也就是这个表格有数据的最后一行！
这样Cells(Rows.Count, 1).End(xlUp)就是沿着单元格“A1048576”向上寻找第一列第一次出现的非空单元格。 连起来Cells(Rows.Count, 1).End(xlUp).Row,就是取第一列第一次出现的非空单元格的行号 ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1,自然就是取该非空单元格的下面的空单元格,以便进...
Cells（Rows.Count,1）.End（xlUp）.Row的含义 Cells（Rows.Count,1）.End（xlUp）.Row的含义 NextRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 这句话的意思是取活动单元表的第⼀列最后⼀个有值的⾏的下⼀⾏⾏号。ActiveSheet为当前活动表格 ...
Rows.Count是第一列的最大行数;Cells(Rows.Count,1).End(xlUp).Row整体意思是第一列最后一个有数据的行的行号. 结果一 题目 Cells(Rows.Count,1).End(xlUp).Row 答案 Rows.Count是第一列的最大行数;Cells(Rows.Count,1).End(xlUp).Row整体意思是第一列最后一个有数据的行的行号.相关推荐 1Cells(Row...
A列倒数第二个非空数据再下移一行