[已解决]根据村主任职务求村书记工资

ycb20010823

如果B列有村主任的村，比如大梨河、余富两个村，这两个村的村书记工资为800；

如果B列没有村主任的村，比如民主村，这个村的村书记工资为1600；

谢谢各位老师！！

最佳答案

月排行榜 / 总排行榜

scl5801

2016-7-21 12:14

试试
Sub fafa()
    Dim arr, i%, j%
    arr = Sheet1.UsedRange
    For i = 1 To UBound(arr)
       If arr(i, 2) = "村书记" Then
          arr(i, 3) = 1600
          For j = 1 To UBound(arr)
             If arr(i, 1) = arr(j, 1) And arr(j, 2) = "村主任" Then
                arr(i, 3) = 800
              End If
          Next j
        End If
    Next i
    [C1].Resize(UBound(arr), 1) = Application.Index(arr, , 3)
End Sub

跳转到最佳答案楼层

baksy

附件。。。

scl5801

试试
Sub fafa()
    Dim arr, i%, j%
    arr = Sheet1.UsedRange
    For i = 1 To UBound(arr)
       If arr(i, 2) = "村书记" Then
          arr(i, 3) = 1600
          For j = 1 To UBound(arr)
             If arr(i, 1) = arr(j, 1) And arr(j, 2) = "村主任" Then
                arr(i, 3) = 800
              End If
          Next j
        End If
    Next i
    [C1].Resize(UBound(arr), 1) = Application.Index(arr, , 3)
End Sub