vb取excel数据(vb获取excel行数)

1. vb获取excel行数

答：vb读取文本文件中指定内容方法：

privatesubcommand1_click()

open"c:\123.txt"forinputas#1

n=0

dowhilenoteof(1)

lineinput#1,a

n=n+1

ifn=3then

text1.text=a

exitdo

endif

loop

close#1

endsub

这样就可以了。用n来控制行数。当到达了第三行，就输出到文本框，然后退出循环。

2. 动态用vba获取单元格的行号

a=[C1].end(4).row+1a里面就是C1向下找到的第一个空单元格行号。

3. vba 获取excel行数

你试用这就行了，是开始有内容的行到最后有内容的行数： Sub Func1() Dim SumRows As Integer Sheets("Sheet2").Select ActiveSheet.UsedRange.Rows.Count End Sub我一般用以下语句求A列最后一行： lastrow = Cells(Rows.Count, 1).End(3).Row

4. vba获取当前单元格行数

Sub finda()

'用VBA更简单一些

'用Find方法

'然后用row 属性返回行数，用column返回列数

'例如：

R = Range("a1:d100").Find("N15").Row

C = Range("a1:d100").Find("N15").Column

MsgBox R & C

End Sub

希望能帮到你！

5. vb读取excel指定行指定列

将单元格所选单元格的行号和列号，分别用VBA显示在下面的两个单元格

按下Alt+F11，打开VBA编辑界面，选择当前工作表编写代码

下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中

下面代码是得到当前单元格的列号并放到当前单元格下面第二个单元格中

代码编写完成，点击运行子过程按钮（或按下F5）

返回Excel中，就可以看到得到了当前单元格的行号和列号

6. vb 获取excel单元格数据

Excel里按Alt+F11打开Vb编辑器，在里面可以建一个窗体，放入文本框，通过程序来赋值，如sheets("sheet1").range("a1").value=11。