如何再VBA里获取当前工作表里数据的行数和列数

iRows=activesheetusedrangerowscount

iColumns=activesheetusedrangeColumnscount

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

with activesheetusedrange

iEndRow=rowscount+row-1

iEndColumn=Columnscount+column-1

end with

刚才试了一下，你说的这种类型的txt好像可以直接用excel打开，所以我录了个宏，改了一下

你可以试试：

Sub 提取()

Set zsht = ActiveSheet

WorkbooksOpenText Filename:="d:\ABCtxt"

Set mytxt = ActiveWorkbook

zshtRange("a1:d10")Value = ActiveSheetRange("a1:d10")Value

mytxtClose

End Sub这个宏是要先打开一个空表格，然后运行这个宏，会把txt当成表格打开，并A1：D10数值赋值给刚才打开的空表格

Sub a()

Dim i As Integer

For i = 0 To UBound(Split(SelectionAddress, ","))

MsgBox Split(Split(SelectionAddress, ",")(i), "$")(2)

Next

End Sub

刚才又思考了一下，下面代码更加简单实用强大。

Sub test()

For Each c In SelectionRows

MsgBox cRow

Next

End Sub

以上就是关于如何再VBA里获取当前工作表里数据的行数和列数全部的内容，包括:如何再VBA里获取当前工作表里数据的行数和列数、Excel中vba怎么获取一个TXT文件的固定行数据、VBA如何得到选中的多行 的行号和列号等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！