2017-09-02 129 views

回答

1

我们可以用一个简单的循环:

Sub Henri() 
    Dim A As Range, r As Range 
    Set A = Range("A1:A142") 

    For Each r In A 
     With r 
      If .Value = 1 Then .Offset(0, 1).Copy .Offset(0, 2) 
     End With 
    Next r 
End Sub 
1

的问题没有得到很好的解释,但不会从C1粘贴此公式

= if(A1=1,B1,0) 

到C142给你所需要的结果呢?

+0

认为可能做的伎俩,但我-B柱上上有姓名和A柱的值更改betveen 1-5,我想impot你的公式= if(A1 = 1,B1,0),给我数字0而不是名字。那么这个公式错过了什么?感谢您给予的所有帮助:) –