如何在vba中得到当前单元格的行号和列号

我现在这样处理,

dim ks as range

ks=d2
lie=row(ks)

结果说row未定义

改成Application.rows又不行,ks的值直接就是单元格D2的值了。请问高手该如何作。

1、第一种方法: ActiveSheet.Range("A" & Rows.Count).End (xlUp).Row

2、第二种方法:ActiveSheet.Range("a1048576").End(xlUp).Row

如果是低版本的OFFICE用ActiveSheet.Range("a65536").End(xlUp).Row

3、第三种方法:ActiveSheet.Cells(Rows.Count,1).End(3).Row

4、第四种方法:ActiveSheet.range("A1").CurrentRegion.Rows.Count

5、第五种方法:ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

6、第六种方法:ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

7、第七种方法:MaxRow  =Application.Evaluate("=MAX((A1:A1048576<>"""")*ROW(1:1048576))")

温馨提示:内容为网友见解,仅供参考
第1个回答  2017-04-27

软件版本:Office2013

方法如下:

    Alt+F11,输入代码如下:

    Selection代表选择的单元格

    row属性可得到起行号;Column可得到起列号

2.F5执行代码,即可得到当前单元格的行号和列号:

第2个回答  2006-01-17
在VBA中,单元格不用定义变量直接可用Range引用
单元格表示要用字符串表示

ks="D2"
lie = Range(ks).Row本回答被提问者采纳
第3个回答  2020-05-20
dim ks as range
Set ks = Range("d2")
lie = ks.Column
hang = ks.Row
你声明了ks是单元格对象,就不能用ks=d2这么写了
只能用set给ks赋值一个单元格。而且系统默认d2是变量。字符串要加双引号。
或者你可以这样写
Dim ks
ks = "d2"
lie = Range(ks).Column
hang = Range(ks).Row

如何在vba中得到当前单元格的行号和列号
1、第一种方法: ActiveSheet.Range("A" & Rows.Count).End (xlUp).Row 2、第二种方法:ActiveSheet.Range("a1048576").End(xlUp).Row 如果是低版本的OFFICE用ActiveSheet.Range("a65536").End(xlUp).Row 3、第三种方法:ActiveSheet.Cells(Rows.Count,1).End(3).Row 4、第四种方法:ActiveSh...

VBA怎样得到当前行号和列号?
1、将单元格所选单元格的行号和列号,分别用VBA显示在下面的两个单元格中,2、按下Alt+F11,打开VBA编辑界面,选择当前工作表编写代码,3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中:4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个单元格中:5、代码编写完成,...

vba如何读取excel中某单元格的行数或列数
1、将单元格所选单元格的行号和列号,分别用VBA显示在下面的两个单元格中,如下图所示:2、按下Alt+F11,打开VBA编辑界面,选择当前工作表编写代码,如下图所示:3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中:4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个单...

VBA怎样取到查找到的单元格位置
结论:VBA通过Range对象的Find方法,能够获取到单元格的查找位置,通过Row或Column属性,我们可以得到所查找的行号或列号。作为办公软件的强大辅助工具,VBA主要应用于Excel等MicrosoftOffice软件中,用于自动化执行任务,如数据查找、复杂计算和界面操作控制等。具体来说,例如在A1:E10范围查找字符串"abc",代...

怎么把一列的行号和列号都显示出来
1、第一步,显示该单元格中所选单元格的行号和列号,并使用VBA在以下两个单元格中进行显示,见下图,转到下面的步骤。2、第二步,完成上述步骤后,按“Alt + F11”打开VBA编辑界面,选择当前工作表以编写代码,见下图,转到下面的步骤。3、第三步,完成上述步骤后,以下代码是当前单元格的行号,并...

excel vba中自定义一个函数,该函数需要用到函数所在的那个单元格的列...
使用 vba 编写函数,如果想要获取函数所在单元格的列号(行号),可以考虑以下办法:1、使用参数传递 即在编写函数时,手动将当前单元格传递过去。Function myfunction1(rng As range) myfunction = rng.Row & "," & rng.ColumnEnd Function2、用 ActiveCell 属性 Function myfunction2() my...

excel 每日一讲:vba取得最大行数、列数,看这一篇就够了。
在Excel VBA中,寻找最大行数和列数的方法多种多样,可以根据具体情况灵活选择。以下是七种常见的方法:方式一:直接使用Worksheets(1).UsedRange.Rows.Count获取活动工作表中数据区域的行数,但需注意带格式的空单元格会被计算在内。方式二:通过Range("a1").CurrentRegion计算,适用于a1单元格附近无...

Excel在VB代码中如何返回当前单元格的行值和列值?
VBA代码如下:Sub RC()R=Selection.rows.row ActiveSheet.Range("a1).Value =R '选择单元格的第一行行号 送入A1 C=Selection.Columns.Column ActiveSheet.Range("a2").Value =C '选择单元格的第一列列号 送入A2 End Sub

Excel如何用宏检查所有单元格,发现有序列的,把所有序列号全显示...
是否存在多个连续的,如:P1-P5,P21-P25 把条件罗列全面了,才好写代码,否则更改起来会更麻烦的。

VBA如何得到选中的多行 的行号和列号
首先要知道行号、列号是已知还是未知的,知道行号、列号确定单元格以后,用CELLS就可以了,把下面的代码复制到VBA里面执行就看出来了: 1 2 3 4 5 6 Sub tt() Dim a, b As Integer a = InputBox("请输入行号") b = InputBox("请输入列号") Cells(a, b).Select End Sub 这上面就是单元格选定。 本...

相似回答