我如何让excel向下查看列表并检查某些条件?

Question

这是我在网上找到的代码。你能告诉我我做错了什么吗?我一直得到一个错误，说"不能使用循环没有一个做"

Sub additions ()
Range(“BI1”)  = “Comments”
Range(“V2”).Select
Do until IsEmpty(ActiveCell)

If (Range(ActiveCell) = “DM”) Then 
ActiveCell.Offset(0,39).Select
Range(ActiveCell) = “Developed Markets”
ActiveCell.Offset(1,-39).Select
End If
Loop
End Sub

Answer 1

如果另一列中有另一个字符串，则将字符串添加到另一列

Option Explicit
Sub Additions()

Dim ws As Worksheet: Set ws = ActiveSheet ' improve!

Dim srg As Range
Set srg = ws.Range("V2", ws.Cells(ws.Rows.Count, "V").End(xlUp))

Dim drg As Range: Set drg = srg.EntireRow.Columns("BI")
ws.Range("BI1").Value = "Comments"

Dim sCell As Range
Dim r As Long

For Each sCell In srg.Cells
r = r + 1
If CStr(sCell.Value) = "DM" Then ' is a match
drg.Cells(r).Value = "Developed Markets"
'Else ' is not a match; do nothing
End If
Next sCell

MsgBox "Additions finished.", vbInformation

End Sub