Question

我有一张这样的表：

╔══════════╦═══════╦══════╦════════╗
║ Arcticle ║ Issue ║ Test ║ Result ║
╠══════════╬═══════╬══════╬════════╣
║ AA       ║    22 ║ ABC  ║ YES    ║
║ AA       ║    24 ║ BAC  ║ NO     ║
║ AA       ║    25 ║ HHH  ║ YES    ║
║ AA       ║    27 ║ JJJ  ║ NO     ║
║ AA       ║    22 ║ SSS  ║ YES    ║
╚══════════╩═══════╩══════╩════════╝

输出应如下所示：

╔══════════╦═══════╦══════╦════════╦════════════════╗
║ Arcticle ║ Issue ║ Test ║ Result ║     output     ║
╠══════════╬═══════╬══════╬════════╬════════════════╣
║ AA       ║    22 ║ ABC  ║ YES    ║ PASS Issue 22  ║
║ AA       ║    24 ║ BAC  ║ NO     ║ FAIL Issue 24  ║
║ AA       ║    25 ║ HHH  ║ YES    ║ PASS Issue 25  ║
║ AA       ║    27 ║ JJJ  ║ NO     ║ FAIL Issue 27  ║
║ AA       ║    22 ║ SSS  ║ YES    ║ PASS Issue 22  ║
╚══════════╩═══════╩══════╩════════╩════════════════╝

我已使用下面的代码，但它不起作用，它返回不匹配错误。我已经明白它可能是公式的定义错误，但我不知道如何解决它。

rangeval = Range("A" & Rows.Count).End(xlUp).Row
a = "ISSUE"
c = "PASS"
d = "FAIL"
For i = 2 To rangeval
  b = Cells(i, 2).Value        
    If Cells(i, 4).Value = "YES" Then
        Cells(i, 5).Value = c+a+b
    Else
        Cells(i, 5).Value = d+a+b
    End If
Next i

感谢您的努力和帮助。

Answer 1

我尝试使用“＆amp;”而不是使用“+”它的工作非常感谢大家的努力

rangeval = Range("A" & Rows.Count).End(xlUp).Row

a = "ISSUE"

c = "PASS"

d = "FAIL"

For i = 2 To rangeval

  b = Cells(i, 2).Value


    If Cells(i, 4).Value = "YES" Then

        Cells(i, 5).Value = c&a&b

    Else

        Cells(i, 5).Value = d&a&b

    End If

Next i

如果满足这个特殊条件，我想加一个单词到一个单元格值？

1 个答案: