恳请大神们帮忙看下这个用vba咋达到我要的效果

qiongmei6

我想在附件的ab列求得一个代码，就是当n列是属于合同工的时候，如果c列是办公室，则ab列单元格对应出现1000，当n列是属于合同工的时候，如果c列是非办公室，则ab列单元格对应出现200，当n列是属于非合同工的时候，则ab列单元格对应出现空白，目前的ab列就是我希望得到的最后结果，谢谢各位大神的帮忙

liulang0808

楼主这个，按照描述使用表格if函数，应该可以实现的吧

无关岁月

1. =IF(N3="合同工",200+(C3="办公室")*800,"")

复制代码

feilanga

这样。。。。。。。。。。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.26
   
2.     With Sheets("工资汇总")
   
3.         r = .Cells(Rows.Count, 2).End(3).Row
   
4.         arr = .Range("a1:ab" & r)
   
5.         For i = 3 To UBound(arr)
   
6.             If arr(i, 14) = "合同工" Then
   
7.                 If arr(i, 3) = "办公室" Then
   
8.                     arr(i, 28) = 1000
   
9.                 Else
   
10.                     arr(i, 28) = 200
    
11.                 End If
    
12.             Else
    
13.                 arr(i, 28) = ""
    
14.             End If
    
15.         Next
    
16.         .Range("a1:ab" & r) = arr
    
17.     End With
    
18.     MsgBox "OK！"
    
19. End Sub
    
20. 
    

复制代码

ykcbf1100

你这个以前不是解决过了吗，怎么还在求助啊？