Excel 如果F列包含“A”，则使C列中的单元格显示“苹果”

我正在尝试创建一个VBA代码，其中出现以下情况：

如果F栏写的是安娜，那么C栏写的是苹果 如果F列显示迈克、杰克、丹、安吉，那么C列将显示香蕉 如果F栏写的是Molly，那么C栏写的是Orange 如果F栏写的是托尼，凯文，那么C栏写的是猕猴桃 你可以试试：

Option Explicit

Sub test()

    With ThisWorkbook.Worksheets("Sheet1")

        If .Range("F1").Value = "Anna" Then
            .Range("C1").Value = "Apples"
        ElseIf .Range("F1").Value = "Mike" Or .Range("F1").Value = "Jake" Or .Range("F1").Value = "Dan" Or .Range("F1").Value = "Angie" Then
            .Range("C1").Value = "Banana"
        ElseIf .Range("F1").Value = "Molly" Then
            .Range("C1").Value = "Orange"
        ElseIf .Range("F1").Value = "Tony" Or .Range("F1").Value = "Kevin" Then
            .Range("C1").Value = "Kiwi"
        End If

    End With

End Sub

你可以试试

Sub fruit()

Dim name As String
Dim lastrow As Long
Dim i As Long

lastrow = Cells(Rows.Count, 6).End(xlUp).Row

For i = 1 To lastrow

    name = Cells(i, 6).Value
    Select Case name

    Case "Anna"
        Cells(i, 3).Value = "Apples"

    Case "Mike", "Jake", "Dan", "Angie"
        Cells(i, 3).Value = "Banana"

    Case "Molly"
        Cells(i, 3).Value = "Orange"

    Case "Tony", "Kevin"
        Cells(i, 3).Value = "Kiwi"

    Case Else
        Cells(i, 3).Value = "not defined"

    End Select

Next i

End Sub

---

创建查找表并使用Vlookup。请指定您尝试过的内容。什么有效，什么无效。另外，请具体说明您正在使用的工具。您已经标记了VBA，尽管这可以通过公式和表索引/匹配或vlookup@ScottCraner来完成。你对VBA有何看法？如果您需要此项的VBA部分，您可能希望在VBA中编写一个开关这是选择案例这里已经有类似的问题-您查看了吗？感谢您的反馈，如果查看了，请将其标记为答案：