Vba 根据另一个单元格中的输入分配单元格中的值

这是我的密码：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Range("A1").Value = "ORACLE" Then
  Range("B1").Value = "DATABASE"
  ElseIf Range("A1").Value = "UNIX" Then
  Range("B1").Value = "SERVER"
  End If
End Sub

如何对整个专栏执行此操作？

尝试以下操作：

Private Sub Worksheet_Change()
Dim rng As Range

Range("A1").Select
For Each rng In Range("A:A")
  If rng.Value = "ORACLE" Then
    ActiveCell.Offset(0, 1).Value = "DATABASE"
    ActiveCell.Offset(1, 0).Select
  ElseIf rng.Value = "UNIX" Then
    ActiveCell.Offset(0, 1).Value = "SERVER"
    ActiveCell.Offset(1, 0).Select
  End If
Next rng

End Sub

试试这个：

Private Sub Worksheet_Change()
Dim rng As Range

Range("A1").Select
For Each rng In Range("A:A")
  If rng.Value = "ORACLE" Then
    ActiveCell.Offset(0, 1).Value = "DATABASE"
    ActiveCell.Offset(1, 0).Select
  ElseIf rng.Value = "UNIX" Then
    ActiveCell.Offset(0, 1).Value = "SERVER"
    ActiveCell.Offset(1, 0).Select
  End If
Next rng

End Sub

---

这不依赖于activecell，因为它基于A列中的事件，所以只有在A列更改时，才会更改B列中的单元格

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A:A")) Then

    If Target.value = "ORACLE" Then
        Range("B" & Target.Row).value = "DATABASE"
    ElseIf Target.value = "UNIX" Then
        Range("B" & Target.Row).value = "SERVER"
    End If
End If
End Sub

---

这不依赖于activecell，因为它基于A列中的事件，所以只有在A列更改时，才会更改B列中的单元格

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A:A")) Then

    If Target.value = "ORACLE" Then
        Range("B" & Target.Row).value = "DATABASE"
    ElseIf Target.value = "UNIX" Then
        Range("B" & Target.Row).value = "SERVER"
    End If
End If
End Sub