excel vba 单元格 行号 列号

sub aa()

    dim iRow,iCol

    irow=range("B2")row

    icol=range("B2")column

    msgbox "B2单元格的行号是" & iRow &"，列号是" & iCol

end sub

set rng=cellsfind("日期")'查找含有“日期”的单元格

if not rng is nothing then‘如果找到

Ro=rngrow’行号

Co=rngcolumn‘列号

end if

硬盘序列号：

GetObject("winmgmts:")InstancesOf("Win32_PhysicalMedia")("Win32_PhysicalMediaTag=""\\\\\\PHYSICALDRIVE0""")SerialNumber

主板的：

    For Each Obj In GetObject("WinMgmts:")InstancesOf("Win32_BaseBoard")

       BBSN = ObjSerialNumber  '主板的序列号

    Next

我也是从Excelhome论坛找的，我自己项目里也是这样用的。

你的语句，是获得A列的最后一个有内容的行，如果A列、B列不整齐，例如B列到10行、而A列到8行，你的结果8，不一定表示使用的最多。

类似你的语句，可以下面这样获得第一行最右边的一列的列号：

Range("IV1")End(xlToLeft)Column

另外，如果你的单元格是从A1开始使用的，你可以考虑使用下面的两个数

ActiveSheetUsedRangeRowsCount

ActiveSheetUsedRangeColumnsCount

假如单元格区域变量为ra，则

起始行号=rarow

截止行号=rarow+rarowscount-1

起始列号=racolumn

截止列号=racolumn+racolumnscount-1

以上就是关于excel vba 单元格 行号 列号全部的内容，包括:excel vba 单元格 行号 列号、excle vba，如何查找一个已知值的行号和列号、Excel VBA如何获取硬盘物理序列号等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！