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

如何在vba中得到当前单元格的行号和列号 ？很多人不了解，今天趣百科为大家带来vba获取单元格行号，一起来看下吧。

软件版本:Office2013 方法如下: 1. Alt+F11,输入代码如下: Selection代表选择的单元格 row属性可得到起行号;Column可得到起列号 2.F5执行代码,即可得到当前.

请查收附件.代码如下32313133353236313431303231363533e78988e69d8331333335333735.Sub tq()Dim r, n As LongDim rg As RangeDim BGArrr = Range("A" &.

楼上回答很好,但是不知道你是否是想知道如何获得A1、A2..等,可以这样处理: 1、定义两个变量,分别为字符型和整数型: Dim s As String Dim i As Integer 2、.

最小值=合并单元格的首个单元格所在的行号,如:=Range("A1").MergeArea.Row最大值=合并单元格的首个单元格所在的行号+合并单元格单元格数据-1,如:=Range(.

在模块中定义2个全局变量iRow,iCol 然后在thisworkbook中的Workbook_Open()事件中,取得工作薄一开始时的初始单元格行号和列号,作为初始行号和列号: Private Su.

给你个列子 在 C列找 包含 “宁波” 的单元格 ,如果 是完全匹配 XLPART 改成XLWHOLE Sub 查找() Set findcell = Columns(＂c＂).Find(＂宁波＂, LookAt:=xlPart) If Not findcell Is Nothing Then MsgBox findcell.Row Else MsgBox ＂没找到符合条件的单元格＂ End If End Sub

Sub lxx() Dim H As Integer '总行数 H = 1000 '假定总行数为1000,根据需要改 Dim I As Integer '定义行变量 Dim J For I = 1 To H If Worksheets(＂sheet1＂).Cells(I, 2).Value = ＂10月份＂ Then Worksheets(＂sheet1＂).Cells(1, 1).Value = I Worksheets(＂sheet1＂).Cells(2, 1).Value = I J = I GoTo Next1: End If Next Next1: For J = 1 To H If Worksheets(＂sheet1＂).Cells(J, 2).Value = ＂10月份＂ Then Worksheets(＂sheet1＂).Cells(2, 1).Value = J End If Next End .

这个不用获取什么行号,你可以用resize重新扩大选择的区域 比如你选定了a1:a8然后想把b1:b8一起合并,vba代码如下: Sub test() activesheet.Range(＂a1:a8＂).Resize(, 2).merge End Sub

首先要知道行号、列号是已知还是未知的,知道行号、列号确定单元格以后,用CELLS就可以了,把下面的代码复制到VBA里面执行就看出来了: Sub tt() Dim a, b As Integer a = InputBox(＂请输入行号＂) b = InputBox(＂请输入列号＂) Cells(a, b).Select End Sub 这上面就是单元格选定.

单元格.row 例如: rg.row