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

变化

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

到

{{1}}