excel 对于要显示为列表的每个循环输出

jjjwad0x 于 2022-12-24 发布在其他

关注(0)|答案(2)|浏览(138)

Sub search()
    Dim cell As Range
    For Each cell In Range("A1:A50")
        If cell.Value = 1 Then
       
        End If
    Next
End Sub

我想提取A1：A50范围内值等于1的单元格地址
输出应显示为表格中的Excel例如在范围（“A1：A50”），如果总单元格的值等于0是3，位于A5，A11和A20。我希望输出显示为列表中的Excel单元格。
| 色谱柱A| B栏|
| - ------|- ------|
| A5||
| A11||
| 阿20||

excel

来源：https://stackoverflow.com/questions/74902658/for-each-loop-output-to-displayed-as-list

2条答案

按热度按时间

brjng4g31#

Sub nbcnb()
Dim cell As Range
Dim i As Integer
i = -1
For Each cell In Range("A1:A5")
If cell.Value = 1 Then
i = 1 + i
Range("A14").Offset(i, 0) = cell.Address
End If
Next
End Sub

赞(0）回复(0）举报 2022-12-24

xyhw6mcr2#

在迭代数组时避免循环计数器，结果证明这种方法效率较低。

Sub nbcnb()
Dim cell As Range
For Each cell In Range("A1:A5")
If cell.Value = 1 Then
Range("A14").End(xlDown).Offset(1, 0) = cell.Address
End If
Next
End Sub

赞(0）回复(0）举报 2022-12-24

我来回答

excel 对于要显示为列表的每个循环输出

2条答案

相关问题

热门标签

最新问答