Значения ячеек в одной ячейке, если> 0

Question

У меня есть значения в каждой ячейке в диапазоне B9: U9 и я хочу, чтобы все данные в ячейке B9.

Это мой код:

    Dim temp As String
    Dim Plag As Range

    temp = ""
    For Each Plag In Range("B9:U9")
    If Len(Plag.Value) > 0 Then temp = temp & Plag.Value & ";"
    Next
    Range("B9").Value = temp

Но после того, как я запустил его, в каждой ячейке все еще есть мои данные ...

Answer 1

Вы не изменяете существующие ячейки, поэтому содержимое останется. Если вам действительно нравятся ячейки, имеющие 0 после обработки, вам нужно сделать это и в цикле:

Dim temp As String
Dim Plag As Range

temp = ""
For Each Plag In Range("B9:U9")
If Len(Plag.Value) > 0 Then 
   temp = temp & Plag.Value & ";"
    Plag.value = 0

 end if
Next
Range("B9").Value = temp