vba遍历一列根据条件在另一列插入值

是不是要这个

Sub dh()
Dim i As Integer, r As Integer
r = Range("b65536").End(xlUp).Row
For i = 3 To r
With Cells(i, 2)
If .Text = "经理室" Then Cells(i, 3) = 1001
If .Text = "生产车间" Then Cells(i, 3) = 1002
If .Text = "销售车间" Then Cells(i, 3) = 1003
If .Text = "保卫科" Then Cells(i, 3) = 1004
End With
Next
End Sub

Sub dd()
Dim c As Range
For Each c In Range("b3:b" & Range("b65536").End(xlUp).Row)
Select Case c
Case "经理室"
     Cells(c.Row, 3) = 1001
Case "生产车间"
     Cells(c.Row, 3) = 1002
Case "销售车间"
     Cells(c.Row, 3) = 1003
Case "保卫科"
     Cells(c.Row, 3) = 1004
End Select
Next
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vy7vre2fjejry2jjexx.html