VBA在Excel中 - 如何獲得一個單元格的值，如果唯一的條件是在循環真正

Question

如何得到這在cloumË科拉姆B中的唯一名字的時候狀態是> 0在Excel VBA中， 請幫忙。

Answer 1

E欄，您可以粘貼如下：

=IF(B1>0, A1, "")

如果B列的值大於0時，它會在A列中的值填充。否則，它會填充一個空字符串（即沒有）。

Answer 2

簡單的例子，應該擴大，以適應你的需要

Sub CopyName() 
    Dim lcell AS Range 
    For Each lcell in Range("$B$2","$B$15") 
     If Cells(lcell.Row,lcell.Column + 1) > 0 Then 
      Cells(lcell.Row,"E").Value = lcell.Value 
     End If 
    Next lcell 
End Sub