vb统计excel指定列行数总是为1
Set excel = CreateObject("Excel.application")
Set excelbook = excel.Workbooks.Open("d:\test.xls")
Set excelsheet1 = excelbook.Worksheets("Sheet1")
myrow2 = 0
excelsheet1.Activate
Range("e19").Select
Selection.CurrentRegion.Select
myrow2 = Selection.Rows.Count
MsgBox myrow2
请教下各位,我这样统计出来怎么总是1
这句语句的意思是将范围扩展到当前单元格所在的数据区域
如果E19单元格所在位置是孤零零的一个的话
Selection.currentregion所代表的就是当前选择的单元格一个而已
如果E19单元格在某一数据区域，他才会由E19扩展到一个大的范围选择。
myrow2 =Worksheets("Sheet1").Range("A65536").End(xlUp).Row本回答被提问者采纳
vb统计excel指定列行数总是为1
Selection.currentregion所代表的就是当前选择的单元格一个而已 如果E19单元格在某一数据区域，他才会由E19扩展到一个大的范围选择。
excel vb如何设置序列号问题?B列有数值时显示1 遇到空格 数值显示2 再...
可以用函数公式解决，在A2输入公式：=IF(ISNUMBER(B2),IF(ISTEXT(A1),MAX(A$1:A1)+1,A1),"")将公式向下复制。在VB中可以用一个循环将公式依次写入A列。
EXCEL如何使要输入的一行数据自动总在第一行
所以你的要求应该是第二种，使当前输入行始终保持在屏幕的同一位置 换种说法就是，输入完一行，它自动向屏幕上方移动一行，下一个待输入行自动跟进到当面位置，这样，看起来，您的输入行的位置，是始终不变的 这个用VB代码可以做到，原理很简单，当激活一行时，屏幕自动向上位移一行，也就是保证你当面输...
VB 查询EXCEL表格中某一列的数据
'首先要在VB中 引用 EXCEL '在FORM 中 绘制 textbox ×2 commandbutton × 1 '先打开 EXCEL 第一列输入 查询字段 第二列 输入 结果内容 '先点击COMMAND1 连接EXCEL '在TEXT1中 输入查询字段 点击COMMAND2 TEXT2中显示结果 '在VB6 EXCEL 2003测试通过 '如有疑问 请留...
求excel 内置函数实现:A列某行值为1时,B列对应的行是1,A列为2时,B列...
B1输入 =MOD(COUNTIF(A1:$A$22,A1),A1)+1 往下拉 其中$A$22改为你表格实际的行数
怎样通过VB实现多个EXCEL中特定行列的数据的提取
我这里使用的 excel 2003 如果是你用的2007 把代码中的 Workbooks("汇总.xls").Sheets("sheet1").Activate 改为 Workbooks("汇总.xlsx").Sheets("sheet1").Activate f = Dir(p & "*.xls")改为 f = Dir(p & "*.xlsx")这里是复制的第3行 如过要复制别的行 把代码中的 ActiveSheet....
Excel中如何用VBA判断行数?
1、同时按下“win+R”键，在打开的运行对话框中输入“excel”回车，打开一个新建的excel文档。2、在打开的excle窗口，依次点击工具栏“开发工具”——“Visual Basic”或直接按快捷键“ALT+F11”,打开VB编辑器。3、双击左侧工程窗口中的“sheet1”，打开“sheet1”代码编辑窗口。4、在代码窗口的下拉...
vb代码 excel插入的数据总是在第一行
只需要用这一句就可以在第一行之前插入一个空行：Rows("1:1").Insert Shift:=xlDown GoodLuck!
现在在写EXCEL中的VB代码,返回EXCEL中某一个单元格对应的行号和列号...
下面是一个实例，在a1:e500里查找“a1” 其中c.Address就是行号和列号的文本格式例如$B$1 c.Column是列号， c.Row是行号 With Sheets("sheet1").Range("a1:e500")Set c = .Find("a1", LookIn:=xlFormulas)If Not c Is Nothing Then firstAddress = c.Address firstColumn = c.Column f...
vb中有没有函数获取Excel中表格的行数?
Dim i As Integer, j As Integer Set rng = xl.ActiveSheet.UsedRange i = rng.Rows.Count '已使用的行数 j = rng.Columns.Count'已使用的列数 但是建议你不使用这种方式，比如你的excel有3行，然后你在第5行里写入数据，然后再把写的数据删了，此时...
