求助指定条件批量减去同一金额代码，谢谢！

dzsrmyh · 发表于 2023-2-11 10:09

shiruiqiang · 发表于 2023-2-11 10:28

dzsrmyh · 发表于 2023-2-11 10:48

shiruiqiang 发表于 2023-2-11 10:28

If arr(x, 10) Like "在职" Then
这名中的10是什么意思？如果是很多职位应该怎么修改呢？是这样改吗If arr(x, 10) Like "总经理,副总经理,XXX,,XXX,XXX" Then

shiruiqiang · 发表于 2023-2-11 10:56

第10列。如果多，就用 if instr（"总经理,副总经理,XXX,,XXX,XXX"，arr(x,10)） >0 then

gwjkkkkk · 发表于 2023-2-11 15:21

Sub test()
Dim ar, i&, j&
ar = Range([A4], Cells(Rows.Count, "J").End(3))
For i = 2 To UBound(ar)
If ar(i, 10) = "在职" Then
ar(i, 4) = ar(i, 4) - 100
End If
Next i
[A4].Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub

gwjkkkkk · 发表于 2023-2-11 15:24

请参考附件

		自动登录	找回密码
密码			免费注册

[求助] 求助指定条件批量减去同一金额代码，谢谢！

评分