在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 

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

Answer 1

怎么样：

 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 

Answer 2

 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 

Answer 3

 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 

试试这个编辑。