VBA 获取某列最后非空单元格的行数

测试用excel：

代码

Sub findDataRow()Dim wkBook As WorkbookDim wkSheet As WorksheetDim findRow As Integer' 指定excel文件Set wkBook = Workbooks.Open(ThisWorkbook.Path & "\" & "test.xlsx")' 指定sheet页Set wkSheet = wkBook.Sheets("sheet2")' 指定某一列findRow = wkSheet.Cells(Rows.Count, "B").End(xlUp).Row' 输出行数Debug.Print "findRow:" & findRow’***************************************************************************Dim findCol As Integer' 指定列，并获取此列非空的最后一行的值  A也可以换成 数字1（但是此时要删除引号）findCol = wkSheet.Cells(Columns.Count, "A").End(xlUp).Columns' 输出值Debug.Print "findCol:" & findCol' 关闭excel文件wkBook.Close savechanges:=True
End Sub

输出结果：

findRow:16
findCol:181

VBA 获取某列最后非空单元格的行数相关推荐

VBA- 设置指定列的文字对齐方式(遍历指定列，获取最后一行非空单元格行号)
Sub isColInfo(sheet As Worksheet)Dim LastRow As IntegerDim arrCol As VariantarrCol = Array("C&q ...
len，counta， “”连接符号，字符串长度，非空单元格数量
len()返回字符串的个数值 worksheetfunction.counta()返回区域内非空单元格数量所有的字符串的连接都需要 & 符号,而文本内容需要用" "引起来 ...
EXCEL小技巧：如何统计非空单元格
http://club.excelhome.net/thread-1187271-1-1.html 下面教大家如果用函数统计非空单元格的数量首先我们来介绍几个统计函数: 1.COUNT(value1 ...
Excel如何删除合并单元格列后的空单元格
如下图是某公司员工信息表,因为一部分员工离职所以姓名中列含有一些空单元格,现在想要快速删除这些空单元格选中部门列合并单元格数据区域,然后点击下图选项(Excel插件,具体安装方法百度即可,不问不作具 ...
Excel隐藏指定区域空单元格整行内容的操作！
今天要和大家分享的是,Excel隐藏指定区域空单元格整行内容的操作!比如下图中的A列学号内容是存在漏录入的情况的,如何将空白单元格的整行隐藏呢-- (方方格子插件) 1.先看动图演示吧 2.首先我们需 ...
python3实现excel根据条件找到目标数据所在单元格的行数和列数，并插入批注
问题根据水果名称和城市,将表格2中的订单号插入到表格1中的批注中去. 表格2如下表格1如下解决方法 from openpyxl import Workbook from openpyxl.com ...
删除单元格_VBA（实验1）用VBA 删除某列空单元格的3种方法：删除法，转移到其他列方法，数组方法...
1 要解决的问题:删除某列中的空单元格/空行暂时只实现了删除一列中的空行,并没有实现多行的判断空行和删除方法.----之后再做更复杂的 1.1 需求分析用VBA删除如下内容,解决思路都不同删除1 ...
Excel按列合并相同相邻单元格和拆分单元格
目录 1.使用vba的方式 1.1合并相同相邻单元格 1.2 拆分单元格 2.使用分类汇总+定位ctrl+G的手工方法 1.使用vba的方式 1.1合并相同相邻单元格代码如下: Sub RngMer ...
单元格数据为空格html,Excel将空单元格快速填充为上方单元格的值 excel如何让空白行填充上方一行相同的数据...
EXCEL空白单元格自动填充为上一个非空单元格内容先选中需要填写的空白单元格和它上面的非空单元格然后同时按ctrl+G,会打开"定位"对话框. 在"定位"对 ...
快速填充空单元格-快速填充上一行或者下一行数据
图1-51所示的表格A列至D列存在大量空单元格,现在需要把这些空单元格填充为上一行的数据,如何快速准确地完成? 利用定位填充法,可以迅速达到目的.下面是具体的方法和步骤. 01 选择A列至D列. 02 ...

VBA 获取某列最后非空单元格的行数

VBA 获取某列最后非空单元格的行数相关推荐

最新文章

热门文章