vba - 对于列循环中的单元格 - 根据循环中的位置指定相邻列单元格的值

Question

我整理了一个 excel VBA 宏，它循环遍历 I 列中所有使用的单元格，并检查单元格的值是否与单词匹配。

如果单词匹配，我想在 B 列的相邻单元格中设置一个介于 1-5 之间的随机数。

这是我到目前为止所拥有的:

Dim FLrange As Range
Dim AllStockLastRow As String
AllStockLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
Set FLrange = Range("I2:I" & AllStockLastRow)

For Each cell In FLrange
    If cell.Value = "Shure" Then
        Range("B2").Value = Int((5 - 1 + 1) * Rnd + 1)
        Else
    End If
Next cell

显然，这段代码不起作用，因为它只会一遍又一遍地重置单元格 B2 的值。我不知道怎么做，但我希望代码检查 I2 的值，并为 B2 设置随机数值。然后检查I3的值，并为B3设置随机数......等......

对不起，如果这里的措辞令人困惑。如果我知道术语，我可能可以通过谷歌找到答案，而不必浪费你的时间:(

Answer 1

避免 ActiveSheet通过完全限定您的引用:

Dim FLrange As Range
Dim AllStockLastRow As String

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") 'your sheet name

With ws 
    AllStockLastRow =.Cells(.Rows.Count, "A").End(xlUp).Row + 1
    Set FLrange = .Range("I2:I" & AllStockLastRow)
End With

For Each cell In FLrange
    If cell.Value = "Shure" Then
        ws.Range("B" & Cell.Row).Value = WorksheetFunction.Randbetween(1,5)
    End If
Next cell