如何根据A列指定值生成B列内容并使用for loop实现全列遍历匹配

我想要实现按A列内容匹配给B列自动赋值的功能，具体规则如下：

• 若A列某行值为Sandwiches，则B列对应单元格显示It's a Sandwich
• 若A列某行值为Wraps，则B列对应单元格显示It's a Wrap，其余匹配规则后续再补充
  目前我仅能实现第一行的匹配赋值，无法正确编写for循环遍历A列所有有效单元格，后续计划添加Else If语句补充其他值的匹配逻辑，请问如何实现全列遍历的条件赋值功能？

方法1：Excel VBA 遍历实现 #

该方法可以一键完成全列赋值，后续新增匹配规则也非常方便：

Sub 条件匹配赋值()
    Dim lastRow As Long
    Dim i As Long
    ' 自动获取A列最后一个有内容的行号，无需手动修改遍历范围
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 遍历范围默认从第2行开始，若你的表格没有表头，将起始值改为1即可
    For i = 2 To lastRow
        Select Case Cells(i, "A").Value
            Case "Sandwiches"
                Cells(i, "B").Value = "It's a Sandwich"
            Case "Wraps"
                Cells(i, "B").Value = "It's a Wrap"
            ' 后续新增规则直接在这里加Case语句即可
            ' Case "待匹配的新值"
            '   Cells(i, "B").Value = "对应的新结果"
            Case Else
                ' 不符合现有规则的单元格默认赋值为空，可根据需求修改
                Cells(i, "B").Value = ""
        End Select
    Next i
End Sub

相比多层If嵌套，用Select Case语法结构更清晰，新增规则时代码可读性更高。

方法2：无需代码，工作表公式实现 #

如果不想使用宏，直接在B列首个数据行（比如B2）输入以下公式，下拉填充到对应行即可：

=IF(A2="Sandwiches","It's a Sandwich",IF(A2="Wraps","It's a Wrap",""))

后续新增规则直接嵌套IF语句即可，匹配规则较多的话可以单独做一个匹配对照表，用VLOOKUP或者XLOOKUP关联，维护起来更方便。

内容的提问来源于stack exchange，提问作者Akash Panchal