例如我有一個考績表，我欲找出所有包含陳二二的列，並複製到其它地方。要如何做？
用尋找或取代是可以尋找出來，但無法一次複製，請問有沒有大大有更好 ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set NewSheet = Sheets.Add(Type:=xlWorksheet)
'Set NewSheet = Worksheets.Add
NewSheet.Name = "_NewSheet_"

Dim DestSheet As Worksheet
Set DestSheet = Worksheets("_NewSheet_")

dRow = 1

For sRow = 1 To UsedRange.Rows.Count
 
  For j = 1 To UsedRange.Columns.Count
  If Cells(sRow, j) Like "*陳二二*" Then

    dRow = dRow + 1

    Rows(sRow).Copy Destination:=DestSheet.Rows(dRow)

  End If
  Next j
Next sRow

End Sub

巨集第一樓的人不知道看不看得懂。
用"資料"=>"篩選"=>"自動篩選"或"進階篩選"
應該就可以找到你要的資料並可複製了

2樓說的没錯,用篩選就可以了,再用選擇性貼上就可以了