VBA、セル内で同じ変数を持つ2つの値が一致する

Question

私はVBAスクリプトを作成しようとしています。このスクリプトは1列を読み取り、その結果を別の列に書き込みます。

値は太字または空白でない場合であるならば、私は列B1にデータを書き込むしたいと思います。

しかし、値が太字ではない場合は、データをc1に書き込み、同じセルに2つ以上の太字でないデータがある場合は連結したいと考えています。

マイコード：

Sub Phone() 

Dim valueLogon As String 
Dim ValueDevice As String 
Dim compteur As Integer 

compteur = 1 

For i = 1 To 2101 

    valueLogon = Range("A" & i) 
    If Range("A" & i).Font.bold = True And IsEmpty(valueLogon) = False Then 
     compteur = compteur + 1 
     Range("C" & i) = valueLogon 
    Else 
     Range("D" & compteur) = valueLogon & "," & 

    End If 

Next i 

End Sub 

は今、私の結果は絵に似ていますが、私は同じセルに

Answer 1

変更

をconcactenate非大胆な結果をしたいと思います

Range("D" & compteur) = valueLogon & "," & 

~

Range("D" & compteur).Value = valueLogon & "," & Range("D" & comptuer).Value