Excel2003中A1到A200的单元格如果值是1的,分别填上A201的数值如何实现...

发布网友发布时间：2024-04-18 10:54

共2个回答

热心网友时间：2024-04-19 17:19

是要求A1:A200所有单元格的值都为1才修改还是说每个单元格？

这是循环判断每个单元格的代码

Sub ChangeValue()
    Dim iRow As Integer
    Dim sValue As String

    For iRow = 1 To 200
        sValue = Cells(iRow, 1).Value
        If sValue = "1" Then
            Cells(iRow, 1).Value = Cells(201, 1).Value
        End If
    Next iRow

End Sub

热心网友时间：2024-04-19 17:24

呵呵，理解不了【A201下面输出A1到A200里《单元格是1的》填充A201值】这句话。
《单元格是1的》难道不是1？如果原封不动地填写，不如直接拷贝下来？
看到追问
原来是这样啊
A202公式
=IF(A1=1,A$201,"")
下拉填充到A401

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com