如何在VBA脚本中select多个单元格

语句If Target.Address = "$I$2" ThenselectI2单元。

我怎样才能select整个列，而不是只有一个单元格？ 这是我的代码

 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Code by Sumit Bansal from https://trumpexcel.com ' To Select Multiple Items from a Drop Down List in Excel Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Address = "$I$2" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

Answer 1

您可能要检查整个列“I”，而不是单元格“I2”。 这个条件应该从

  If Target.Address = "$I$2" Then 

至

  If Target.Column = 9 Then 

所以这个macros会考虑它的完整列。