µ{¦¡½X³t«×°ÝÃD

cyfchuang

·s¤â½Ð¯q¦U¦ì¡A¤U¦Cµ{¦¡½X¦b³ÌÀˬd½Æ´ú¸ê®Æ°µ§R°£®É¡A¹B¦æ®É¶¡¸û¤[¡A¥i¥H«ç»ò­×§ïµ{¦¡¡AÅý³t«×ÅܧÖ

Sub ½Æ»s()
    Sheets("¶W³W").Select
    Range("A3:V3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("°e´ú").Select
    i = Sheets("°e´ú").Columns("A:A").Find("*", LookIn:=xlValues, LOOKAT:=xlWhole, SearchDirection:=xlPrevious).Row + 1
    Range("A" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    For j = Sheets("°e´ú").Columns("B:B").Find("*", LookIn:=xlValues, LOOKAT:=xlWhole, SearchDirection:=xlPrevious).Row To 2 Step -1
    If Cells(j, 2) <> "½Æ´ú" Then
    Rows(j).Delete
    End If
    Next
End Sub

Andy2483

¦^´_ 1# cyfchuang


    ÁÂÁ«e½úµoªí¦¹¥DÃD,«á¾Ç¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

Sub TEST()
Dim Arr, i&, N&, j%
With Sheets("¶W³W")
   Arr = .[A3].Resize(.UsedRange.Rows.Count, 22)
End With
For i = 1 To UBound(Arr)
   If Trim(Arr(i, 2)) = "½Æ´ú" Then
      N = N + 1
      For j = 1 To 22
         Arr(N, j) = Arr(i, j)
      Next
   End If
Next
If N = 0 Then Exit Sub
With Sheets("°e´ú")
   .Cells(Rows.Count, "B").End(3)(2, 0).Resize(N, UBound(Arr, 2)) = Arr
End With
End Sub