如果單元格包含特定文本，則復制整列

Question

我有以下代碼來過濾 table1 中包含 A2 中特定文本的第 9 列。 我想復制整個列並將其粘貼到新工作表中，然后將文本運行到列以分隔復制的列。

Private Sub TextBox1_Change()

Dim filterinput As Range
Dim filterrange As Range

Set filterinput = Range("A2")
Set filterrange = Range("Table1")

filterrange.AutoFilter field:=9, Criteria1:="*" & filterinput & "*", _
visibledropdown:=False

End Sub

Answer 1

這對我有用：

Sheets(2).UsedRange.autofilter Field:=8, Criteria1:=Array("Goods", "Services"), VisibleDropDown:=False, Operator:=xlFilterValues
###For Column A Sheets(2).UsedRange.Resize(, 1).SpecialCells(xlCellTypeVisible).Copy
###For Column L Sheets(2).UsedRange.Columns(9).SpecialCells(xlCellTypeVisible).Copy
Sheets(1).Range("A1").PasteSpecial
Application.CutCopyMode = False