TextBox_Change Sub正在创build一个列 – VBA创build问题

我试图从工作表中选取一列，并在文本框中新build条目时删除该列。

Private Sub Ent_TextBox_Change() Dim Wk As Workbook Dim Ws As Worksheet Set Wk = ActiveWorkbook Set Ws = Wk.Sheets("Main") Ws.Activate SearchValue = Ent_TextBox.Value NumberofCharacters = Len(SearchValue) lastrow = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Data").Activate Columns("B:B").Select ' Not picking up this column - Causing error' Selection.Delete Shift:=xlToLeft End Sub 

任何build议，为什么它没有select特定的列？

Answer 1

代替

 Sheets("Data").Activate Columns("B:B").Select ' Not picking up this column - Causing error' Selection.Delete Shift:=xlToLeft 

尝试

 Sheets("Data").Columns("B:B").Delete Shift:=xlToLeft