blocks|key|1674373|text|Sub+test()

++++Dim+i+As+Long,+arr+As+Variant,+rng+As+Range

++++Set+rng+=+ThisWorkbook.Worksheets("Sheet1").Range("A1:A10")
++++arr+=+rng.Value

++++For+i+=+LBound(arr)+To+UBound(arr)
++++++++++++If+arr(i,+1)+=+4+Then
++++++++++++++++Debug.Print+rng(i).Row
++++++++++++End+If
+++++Next+i+++
End+Sub|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1674374|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>Sub test()

 Dim i As Long, arr As Variant, rng As Range

 Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:A10")
 arr = rng.Value

 For i = LBound(arr) To UBound(arr)
 If arr(i, 1) = 4 Then
 Debug.Print rng(i).Row
 End If
 Next i 
End Sub
</code></pre>

blocks|key|425363|text|您的数组通过i与您的行号相关，尽管这取决于从第一行开始的数组。如果您从第5行开始，它将是i+%2B+4|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|425364|++++For+i+=+LBound(arr)+To+UBound(arr)

++++++++If+arr(i,+1)+=+4+Then
++++++++++++Debug.Print+i
++++++++End+If

++++Next+i|code-block|syntax|javascript|425365|entityMap^0|6|1|18|5|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]|$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|R|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|S|8|@]|D|@]|E|$]]]|L|$]]

Your array relates to your row number by <code>i</code> although this is dependent on your array starting from the first row. If you started on the 5th row, it would be <code>i + 4</code>

<pre><code> For i = LBound(arr) To UBound(arr)

 If arr(i, 1) = 4 Then
 Debug.Print i
 End If

 Next i
</code></pre>

blocks|key|2864668|text|对于每个单元格，请尝试如下所示。它将返回准确的匹配行。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2864669|Option+Explicit
Sub+test()
++++Dim+i+As+Long
++++Dim+cells+As+Range
++++With+ThisWorkbook.Worksheets("Sheet1")
++++++++For+Each+cells+In+.Range("A1:A10")
++++++++++++If+cells.Value+=+4+Then
++++++++++++++++MsgBox+("row+Number+is+:"+&+cells.Row)
++++++++++++End+If
++++++++Next
++++End+With
End+Sub|code-block|syntax|javascript|2864670|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Try with For each cells as below. it will return the exact match rows.

<pre><code>Option Explicit
Sub test()
 Dim i As Long
 Dim cells As Range
 With ThisWorkbook.Worksheets("Sheet1")
 For Each cells In .Range("A1:A10")
 If cells.Value = 4 Then
 MsgBox ("row Number is :" &amp; cells.Row)
 End If
 Next
 End With
End Sub
</code></pre>

blocks|key|2864726|text|我添加了一个变量，用于存储开始范围的初始行号。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2864727|另外，请注意，数组的索引i与范围内的位置有关。当您执行arr+=+.Range("A1:A10")时，您正在创建一个由10个单元格(10x1)组成的BIDIMENSIONAL数组。指数1将是细胞(1,1)，指数2将是细胞(2，1)等等。|offset|length|style|BOLD|CODE|2864728|所以这里的诀窍是存储开始范围的行号，然后总结索引。|2864729|Sub+test()

Dim+i+As+Long,+arr+As+Variant

Dim+rng+As+Range
Dim+InitialRow+As+Long


With+ThisWorkbook.Worksheets("Sheet1")
++++Set+rng+=+.Range("A1:A10")
++++arr+=+rng.Value


++++InitialRow+=+Range(Left(rng.Address(False,+False),+Application.WorksheetFunction.Search(":",+rng.Address(False,+False))+-+1)).Row

++++For+i+=+LBound(arr)+To+UBound(arr)

++++++++If+arr(i,+1)+=+4+Then
++++++++++++'Get+the+row+that+the+array+value+apperas+in+Column+A.+The+answer+should+be+row+number+8
++++++++++++Debug.Print+InitialRow+%2B+i+-+1+'this+is+the+row+number+that+matches+the+value
++++++++End+If

++++Next+i

++++Erase+arr

End+With

End+Sub|code-block|syntax|javascript|2864730|如果我用‘`Range("A1:A10")上的值测试这个值，结果8。|2864731|​|2864732|📷|atomic|2864733|2864734|但是，如果更改值的位置，同样的代码也会得到另一个结果，因为代码存储了范围的第一行。|2864735|2864736|2864737|2864738|如果您的范围不会改变，永远不要改变起始位置，只使用索引就可以了。但是，如果范围并不总是从同一行开始，那么您需要知道初始行并将其与索引相加。|2864739|希望这段代码能帮助你适应你的需要。|2864740|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://developer.qcloudimg.com/http-save/yehe-900000/bfba332615b097ca5f3b347141234b68.jpg|imageAlt|1|https://developer.qcloudimg.com/http-save/yehe-900000/4878b6456a0504ddfa9b578dfdd66abe.jpg^0|0|C|1|R|M|0|0|0|0|0|0|1|0|0|0|0|0|0|1|1|0|0|0|0^^$0|@$1|2|3|4|5|6|7|1H|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1I|8|@$D|1J|E|1K|F|G]|$D|1L|E|1M|F|H]]|9|@]|A|$]]|$1|I|3|J|5|6|7|1N|8|@]|9|@]|A|$]]|$1|K|3|L|5|M|7|1O|8|@]|9|@]|A|$N|O]]|$1|P|3|Q|5|6|7|1P|8|@]|9|@]|A|$]]|$1|R|3|S|5|6|7|1Q|8|@]|9|@]|A|$]]|$1|T|3|U|5|V|7|1R|8|@]|9|@$D|1S|E|1T|1|1U]]|A|$]]|$1|W|3|S|5|6|7|1V|8|@]|9|@]|A|$]]|$1|X|3|Y|5|6|7|1W|8|@]|9|@]|A|$]]|$1|Z|3|S|5|6|7|1X|8|@]|9|@]|A|$]]|$1|10|3|U|5|V|7|1Y|8|@]|9|@$D|1Z|E|20|1|21]]|A|$]]|$1|11|3|S|5|6|7|22|8|@]|9|@]|A|$]]|$1|12|3|13|5|6|7|23|8|@]|9|@]|A|$]]|$1|14|3|15|5|6|7|24|8|@]|9|@]|A|$]]|$1|16|3|-4|5|6|7|25|8|@]|9|@]|A|$]]]|17|$18|$5|19|1A|1B|A|$1C|1D|1E|-4]]|1F|$5|19|1A|1B|A|$1C|1G|1E|-4]]]]

I've added a variable that stores the initial row number where the range starts.

Also, note that the index i of your array is related to position inside range. When you do <code>arr = .Range("A1:A10")</code> you are creating an BIDIMENSIONAL array of 10 cells (10x1). Index 1 would be Cell (1,1), index 2 would be Cell(2,1) and so on.

So the trick here would be to store the row number where range starts, and then sum up index.

<pre><code>Sub test()

Dim i As Long, arr As Variant

Dim rng As Range
Dim InitialRow As Long


With ThisWorkbook.Worksheets("Sheet1")
 Set rng = .Range("A1:A10")
 arr = rng.Value


 InitialRow = Range(Left(rng.Address(False, False), Application.WorksheetFunction.Search(":", rng.Address(False, False)) - 1)).Row

 For i = LBound(arr) To UBound(arr)

 If arr(i, 1) = 4 Then
 'Get the row that the array value apperas in Column A. The answer should be row number 8
 Debug.Print InitialRow + i - 1 'this is the row number that matches the value
 End If

 Next i

 Erase arr

End With

End Sub
</code></pre>

If I test this with values on `Range("A1:A10"), I get as result 8.

<a href="https://i.stack.imgur.com/BJBKH.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/BJBKH.jpg" alt="enter image description here"></a>

But If I change position of values, I get another result with same code too, because code stores the initial row of range.

<a href="https://i.stack.imgur.com/5XaWN.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/5XaWN.jpg" alt="enter image description here"></a>

If your range is not going to change never ever the starting position, just with the index would work. But if range is not going to start always in same row, then you need to know the initial row and sum it up with the index.

Hope this code can help you out and be adapted to your needs.

As you can see from the code below i m looping an array and if condition met i want to get the row number that includes the specific value in column A. 

Images:

<a href="https://i.stack.imgur.com/jkpwR.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/jkpwR.png" alt="enter image description here"></a>

<pre><code>Option Explicit

Sub test()

 Dim i As Long, arr As Variant

 With ThisWorkbook.Worksheets("Sheet1")

 arr = .Range("A1:A10")

 For i = LBound(arr) To UBound(arr)

 If arr(i, 1) = 4 Then
 'Get the row that the array value apperas in Column A. The answer should be row number 8
 End If

 Next i

 End With

End Sub
</code></pre>

Get row number using array VBA

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

从下面的代码中可以看到，我正在循环一个数组，如果条件满足，我希望得到行号，其中包括列A中的特定值。图像：​​Option ExplicitSub test()    Dim i As Long, arr As Variant    With ThisWorkbook.Worksheets("Sheet1")        arr = .Range("A1:A10")        For i = 

问使用数组VBA获取行号
EN

回答 4

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用数组VBA获取行号EN

回答 4

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用数组VBA获取行号
EN