Question

你好，我希望这有意义，

我发现这个脚本如果一个单元格中有一个字母或数字，它将在另一个单元格中输入一个值

我想知道如何为此添加多个规则。如果在单元格中输入C或9，那么它会生成句子“这里的单词会显示”

我希望它显示在不同的单元格而不是相邻的单元格中，并且我希望能够在列表中添加不同的字母以输出不同的值。

EG

当宏在列E中运行时，

单元格在列A中输出

C或9“Word0”

HELLO或GOODBYE“Word1”

粉红色或黄色“Word2”

等任何帮助都会很棒，因为我是VB和Macros的新手。

下面的代码只做C或9我以为我可以添加.Forumula到下面的代码添加更多的单词，但它不起作用

Sub CheckValues()
    Application.ScreenUpdating = False
    With Range("A2", Range("A" & Rows.Count).End(xlUp)).Offset(, 1)
        .Formula = "=IF(MIN(FIND({""C"",9},A2&""C9""))<=LEN(A2),""Word0"","""")"
        .Value = .Value
    End With
    Application.ScreenUpdating = True
End Sub

Answer 1

如果您正在寻找VBA方法，那么就没有必要使用.Formula。 VBA有一个Select Case结构，可以让你根据表达式的结果来评估表达式并执行一系列选项。

试试这个：

Sub CheckValues()

    Application.ScreenUpdating = False

    Dim startRow As Integer
    startRow = 2
    Dim endRow As Integer
    endRow = Range("A2").End(xlDown).row

    Dim row As Integer
    Dim word As String

    For row = startRow To endRow

        Select Case Split(Cells(row, 1).Value, " ")(0)

            Case "C", "9"
                word = "Word0"
            Case "HELLO", "GOODBYE"
                word = "Word1"
            Case "Pink", "Yellow"
                word = "Word2"
            Case Else
                word = ""

        End Select

        Cells(row, 5).Value = word

    Next row

    Application.ScreenUpdating = True

End Sub

在为a列添加更多选项时，只需重复Case *expression*模式。

Answer 2

或者你可以修改你现有的公式而不用循环：

Sub SO()

With Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Offset(, 3)
    .FormulaR1C1 = "=IFERROR(""Word""&ROUNDDOWN((MATCH(LEFT(RC[-3],SEARCH("" "",RC[-3])-1),{""C"",""9"",""HELLO"",""GOODBYE"",""Pink"",""Yellow""},0)/2)-0.1,0),"""")"
    .Value = .Value
End With

End Sub

VBA Macro帮助需要Excel

2 个答案: