需要帮助，简单的表格代码

Question

当前问题： 我需要获取数据if（A：A142 = 1），同一行B将被粘贴到C中。

感谢您的帮助！

Answer 1

问题没有得到很好的解释，但不会粘贴这个公式

 = if(A1=1,B1,0) 

从C1到C142会得到你需要的结果吗？

Answer 2

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

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