VBAにテキストを追加しながらセミコロンを追加する

異なる列の2つの異なるテキストを1つのセルに追加するコードがあります。私がしたいのは、2つの異なるテキストを区切るセミコロンを追加することです。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とCOL Sは、2つの列であり、私はそれらの間にセミコロンを追加する必要があります。およそ

出典

2017-02-14 stack mark

方法：

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

出典

2017-02-14 07:24:19

完璧に動作します!!!! –

10分が経過するのを待っています.SOは10分後に答えをマークすることができます –

@stackmarkはそれを知らなかったのですか？または投稿を開くことからですか？ –

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

出典

2017-02-14 07:23:50 user3598756

真剣に？再び秒で:)それは非常に長いコードライン（私はそれがどこから来ているか知っている感じがある）を理解するためにちょっと時間がかかりました –

@ShaiRado、秒が問題になると思われる...と（あなたの気持ちかなり正しいです） – user3598756

20Kのおめでとう！ –

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

この編集を試してみてください。

出典

2017-02-14 07:26:25

VBAにテキストを追加しながらセミコロンを追加する

答えて

関連する問題