分享:
▲
▼
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
|