引用 | 編輯
ICLA
2009-01-26 01:02 |
1樓
▲ ▼ |
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 x0 |