如何选定不相邻的两个单元格？

liangwen

我有个工作表，要求只能在D4和J10两个不相邻的单元格内进行操作，若光标点选其他的单元格时，光标自动选中D4单元格。请问这段代码当如何写？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.ScreenUpdating = False
On Error Resume Next
If  Target <> Cells(3, 4) or Target <>Cells(9, 10)  Then
Cells(3, 4).Select
End If
End Sub
我上面这段代码的问题在哪里？

gdfcx

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$D$4" And Target.Address <> "$J$10" Then
Cells(4, 4).Select
End If
End Sub

goalone1985

Target 是Range变量，而CELLS（）不是，在cells()外面再套一个Range()就可以了！
If Target <> Range(Cells(3, 4)) Or Target <> Range(Cells(9, 10)) Then
    Cells(3, 4).Select
End If

liangwen

谢谢郭兄，在你的帮助下，我有问题解决了。谢谢