VBA列数获取

参考下面的代码：

iRows=activesheetusedrangerowscount

iColumns=activesheetusedrangeColumnscount

'如果表格前面的几行或几列可能是空的，需要获得最下面的行数和最右面的列数：

with activesheetusedrange

    iEndRow=rowscount+row-1

    iEndColumn=Columnscount+column-1

end with

Public Sub aaa()

'取得B5的 行号 和 列号 ，并写入数据

s = "B5"

r = Range(s)Row

c = Range(s)Column

Cells(r, c)Value = 5

'选定 A1:B5 单元格区域

Range(Cells(1, 1), Cells(r, c))Select

'选定 A2:B5 单元格区域

Range(Range("A2"), Cells(r, c))Select

'选定 A3:B5 单元格区域

Range([A3], Cells(r, c))Select

'选定 B5右下方（含B5） 共2行3列 的 单元格区域，即 B5:D6

[B5]Resize(2, 3)Select

'……

End Sub

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

起始行号=rarow

截止行号=rarow+rarowscount-1

起始列号=racolumn

截止列号=racolumn+racolumnscount-1

表单控件

Sub 显示行号()

 MsgBox ActiveSheetShapes("按钮 1")BottomRightCellRow

End Sub

存放代码参考

Excel数据如何快速排列

ActiveX控件

Private Sub CommandButton1_Click()

 MsgBox Shapes("CommandButton1")BottomRightCellRow

End Sub

Excel工作表被修改后自动升序排列

代码放在

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

if not rng is nothing then‘如果找到

Ro=rngrow’行号

Co=rngcolumn‘列号

end if

在VBA中,一般都不会再象EXCEL里面一样用"AA,AB,BB,CA"这样的字母列号而是用数字表示列号同样返回某个单元格时,也可以直接以数字表求如cells(3,1)表示A3cells(3,14)表示N3

columns(3)select 表示选择第三列,即C列

如果你非得要返回一个字母列标的话,试试下面的笨方法,因为实在没用过

下面这段返回选择单元格所在的列标

Sub tt()

a = SelectionAddress(True, False)

adt = Left(a, ApplicationWorksheetFunctionFind("$", a) - 1)

MsgBox adt

End Sub

以上就是关于VBA列数获取全部的内容，包括:VBA列数获取、VBA中如何取得行号和列号如何选定这一范围的值、VBA如何求一个区域的起始和截止的行号及列号等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！