帮助 VBA 如何显示自选的单元格行号和列号

这个**已经实现了所选单元格的行号，但是它把行号存放在变量row1中，如果要显示，可以在末尾加一句话：

sub aa()

dim rng as range

dim row1 as integer

set rng = "请微笑并选择单元格：",type:=8)row1 =

msgbox

end sub

也可以试试这个：

sub bb()

dim rng as range

dim row1 as integer

on error resume next

set rng = "请选择单元格英亩：",type:=8)if rng is null then exit subrow1 =

msgbox row1

end sub

如果您有任何问题，请打个招呼，或者给我发消息给荀仔，让我给百奇星度发个消息。

goodluck!

试试这个。

sub cc()

dim row1 as long 'row1 是所选单元格的行号。

dim mycell as range

set mycell = :="select a cell", type:=8)

row1 =

msgbox row1

end sub

row 属性。

返回尘埃圈中第一个 Kaijina 子区域的第一行的行号。 长类型，只读。

sub aa()

dim row1 as integer '代码 row1 是所选单元格的行号。

dim a as range

set a = :="请选择一个单元格", type:=8)row1 =

msgbox row1

end sub

实现方法及详细操作步骤如下：

1.在第一步中，显示单元格中所选单元格的行号和列号，并使用VBA在以下两个单元格中显示它们，请参见下图，请执行以下步骤。

2.第二步，完成以上步骤后，按“Alt + F11”打开VBA界面，选择当前要编写的工作表**，见下图，转到以下步骤。

3.在第三步中，完成上述步骤后，下面的**是当前单元格的行号，并将其放在当前单元格的下一个单元格中，请参见下图，转到以下步骤。

4.步骤4，完成以上步骤后，使用以下**获取当前单元格的列号，并将其放在当前单元格下方的第二个单元格中，请参见下图，转到以下步骤。

5.第五步，完成以上步骤后，写**完成，点击“运行”按钮（或按F5键），见下图，进入以下步骤。

6.在第六步中，完成上述步骤后，返回excel时，可以看到当前单元格的行号和列号，请参见下图。 这样，问题就解决了。

数字从 1 开始，代表 A 区域的第一行，如果要获取 A 区域第一个单元格的单元格地址，可以这样写：，0） 或 1）。address（0,0） 如果要获取区域 a 中第一个单元格的单元格行号，可以这样写，或者 1）。

行，如果要获取区域 A 中第一个单元格的单元格列号，可以这样写，或者 1）。column

sub run()

dim rng as range

set rng = range("c1:f5")msgbox "最小行面积：" & chr(13) &"最小面积列：" &

set rng = nothing

end sub