作业帮 > 综合 > 作业

excel中,如果B1不等于C1,返回A1,如果B1=C1,则继续检查B2与C2是否相等,不等则返回A2,相等则继续检查

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 18:29:21
excel中,如果B1不等于C1,返回A1,如果B1=C1,则继续检查B2与C2是否相等,不等则返回A2,相等则继续检查B3与C3,直至B与C最后一个不为空的单元格,大侠帮帮忙,公式和VBA均可
最后一个不为空的B列单元格等于C列单元格,返回什么值?
再问: 返回A列对应的值
再答: 请测试!结果生成在G1单元格。Sub test()
    Dim ar
    Dim i As Long
    ar = Range("A1:C" & Cells(Rows.Count, 2).End(3).Row)
    For i = 1 To UBound(ar)
        If ar(i, 2) <> ar(i, 3) Then
            Cells(1, 7) = ar(i, 1)
            Exit Sub
        End If
    Next i
    Cells(1, 7) = ar(i - 1, 1)
End Sub
再问: 不好意思 错了 不是返回A列的值,是返回空值
再答: Sub test()
    Dim ar
    Dim i As Long
    ar = Range("A1:C" & Cells(Rows.Count, 2).End(3).Row)
    For i = 1 To UBound(ar)
        If ar(i, 2) <> ar(i, 3) Then
            Cells(1, 7) = ar(i, 1)
            Exit Sub
        End If
    Next i
    Cells(1, 7) = ""
End Sub这样吗?
再问: 大侠,具体该怎么在excel中操作啊,如果我想返回值在D列,然后按钮该怎么弄啊
再答: 你把前3列的数据复制到我的表中,单击按钮试试!P.S. 代码已修改输出值位置为D1单元格