VBA获取EXCEL 表格选定区域行号

这个不用获取什么行号，你可以用resize重新扩大选择的区域

比如你选定了a1:a8然后想把b1:b8一起合并，vba代码如下：

Sub test()

activesheetRange("a1:a8")Resize(, 2)merge

End Sub

假设获取A列、、

irow=range("A65536")end(xlup)row

这个需要假如一个循环了。。。

for i=range("A65536")end(xlup)row to 1 step -1

if isnumeric(cells(i,1)value) then

irow= i

exit for

end if

next

给你个列子 在 C列找 包含 “宁波” 的单元格 ，如果 是完全匹配 XLPART 改成XLWHOLE

Sub 查找()

Set findcell = Columns("c")Find("宁波", LookAt:=xlPart)

If Not findcell Is Nothing Then

MsgBox findcellRow

Else

MsgBox "没找到符合条件的单元格"

End If

End Sub

Sub a()

rw = Cells(RowsCount, 6)End(xlUp)Row

For i = 1 To rw

If Cells(i, 6) = "数量" Then

Cells(i + 1, 6) = "单价："

Cells(i + 1, 7) = 60

End If

Next

End Sub

把代码复制到对应工作表里去。。在工作表里加一个按钮指定这个宏

sub

m

()

row_

=

ActiveCellRow

'获得光标所在行的行号

col_

=

ActiveCellColumn

'获得光标所在行的列号

val_

=

Cells(row_,

col_)

'这个就是所在行的值了

end

sub

如果需要知道相同行其它列的数据，可以这样：

val_

1=

Cells(row_,

col_+2)

val_

2=

Cells(row_,

col_+3)

看了你的表格，是否：点选如23那个，下面就对应填上数值吧

如果这样，就要把val_换成下面那个区域，如：range(cells(30,3),cells(30,35),，这里假定是第30行的第三列到30行的第35列。

set rng=cellsfind("日期")'查找含有“日期”的单元格

if not rng is nothing then‘如果找到

Ro=rngrow’行号

Co=rngcolumn‘列号

end if

以上就是关于VBA获取EXCEL 表格选定区域行号全部的内容，包括:VBA获取EXCEL 表格选定区域行号、vba如何获取最后一个数值的行号、如何在Excel VBA 中的某一列查找某一单元格,并获得此单元格的行号等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！