Excel 需要帮助,简单的表单代码

Excel 需要帮助,简单的表单代码,excel,Excel,当前问题: 如果(A:A142=1),我需要获取数据,相同的行B将粘贴到C中 已经谢谢你的帮助了 这个问题没有得到很好的解释,但是粘贴这个公式是不可能的 = if(A1=1,B1,0) 从C1到C142给出您需要的结果?我们可以使用一个简单的循环: Sub Henri() Dim A As Range, r As Range Set A = Range("A1:A142") For Each r In A With r If

当前问题: 如果(A:A142=1),我需要获取数据,相同的行B将粘贴到C中


已经谢谢你的帮助了

这个问题没有得到很好的解释,但是粘贴这个公式是不可能的

 = if(A1=1,B1,0) 

从C1到C142给出您需要的结果?

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

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

我想这可能会奏效,但我的B列上有名称,A列的值在1-5之间变化,我试图将B列中的名称导入C。你的公式=if(A1=1,B1,0),给了我数字0而不是名称。那么这个公式是不是遗漏了什么?感谢您给予的所有帮助:)