Excel 在VBA中追加文本时添加分号

我有一个代码，它将来自不同列的两个不同文本附加到一个单元格中。我想做的是：添加一个分号分隔两个不同的文本

这是执行追加操作的行：

If Not Sheets("DRG").Range("E" & MatchRow + 1).Value = vbNullString Then .Range("P" & cl.Row).Value = .Range("P" & cl.Row).Value & IIf(Not .Range("P" & cl.Row).Value = vbNullString, ";", "") & Sheets("DRG").Range("Q" & MatchRow + 1).Value & Sheets("DRG").Range("S" & MatchRow + 1).Value

Q列和S列是两列，我需要在它们之间加一个分号。

怎么样：

If Not Sheets("DRG").Range("E" & MatchRow + 1).Value = vbNullString Then .Range("P" & cl.Row).Value = .Range("P" & cl.Row).Value & IIf(Not .Range("P" & cl.Row).Value = vbNullString, ";", "") & Sheets("DRG").Range("Q" & MatchRow + 1).Value & ";" & Sheets("DRG").Range("S" & MatchRow + 1).Value

If Not Sheets("DRG").Range("E" & MatchRow + 1).Value = vbNullString Then _
    .Range("P" & cl.Row).Value = .Range("P" & cl.Row).Value & _
    IIf(Not .Range("P" & cl.Row).Value = vbNullString, ";", "") & _
    Sheets("DRG").Range("Q" & MatchRow + 1).Value & ";" & Sheets("DRG").Range("S" & MatchRow + 1).Value

那么：

If Not Sheets("DRG").Range("E" & MatchRow + 1).Value = vbNullString Then _
    .Range("P" & cl.Row).Value = .Range("P" & cl.Row).Value & _
    IIf(Not .Range("P" & cl.Row).Value = vbNullString, ";", "") & _
    Sheets("DRG").Range("Q" & MatchRow + 1).Value & ";" & Sheets("DRG").Range("S" & MatchRow + 1).Value

请尝试此编辑

---

请尝试此编辑

真的吗？再次以秒为单位：）我花了一段时间才理解他那很长的代码行（我有一种感觉，我知道它是从哪里来的）@ShaiRado，似乎秒都不重要了…（你的感觉很对）祝贺20K！认真地再次以秒为单位：）我花了一段时间才理解他那很长的代码行（我有一种感觉，我知道它是从哪里来的）@ShaiRado，似乎秒都不重要了…（你的感觉很对）祝贺20K！当然等待10分钟通过。as SO只允许在10分钟后标记答案mins@stackmark我不知道，从答案来看？还是从邮局开门？当然。等待10分钟通过。as SO只允许在10分钟后标记答案mins@stackmark我不知道，从答案来看？还是从打开邮件开始？