VBA，与单元格中的相同variables共享2个值

我正在尝试编写一个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 

现在，我的结果是喜欢的图片，但我想concactenate在同一单元格中的非加粗结果

Answer 1

更改

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

至

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