如果一个单元格中的单元格值> 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