VBA，在单元格中使用相同变量来限制2个值

Question

我正在尝试编写VBA脚本。该脚本将读取1列并将结果写入另一列。

如果值是大胆，或者如果不是空白的，我想在列B1写入数据。

但是，如果值不是粗体，我想在c1中写入数据，并且在同一个单元格中有两个或多个非粗体数据时连接。

我的代码：

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