ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦C¥X§ó¦hªº¹ïÀ³¸ê®Æ

¦^´_ 38# °a¤ªºµ
¦pªG¬O «~¸¹ «~¦W ³W®æ ¼Æ¶q ¨ä¤¤¤@­Ó§Ñ°O¥´ ¥i¥H¸Õ¸Õ³o­Ó:)
Public Sub ¼Ò½k¿z¿ï()

Application.ScreenUpdating = False
Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(2, 4).End(xlDown)).Font.Color = RGB(255, 0, 0)
G = True
Sheets(3).Select
Sheets(3).Range(Cells(1, 1), Cells(1, 4).End(xlDown)).Clear
Sheets(2).Select

For K = 2 To Sheets(1).Cells(2, 4).End(xlDown).Row
    X = Trim(Sheets(1).Cells(K, 3))
   
    If Sheets(1).Cells(K, 1) = "" And Sheets(1).Cells(K, 2) = "" And Sheets(1).Cells(K, 3) = "" And Sheets(1).Cells(K, 4) = "" Then
       Exit For
    End If
   
    For i = 2 To Cells(2, 3).End(xlDown).Row '¨Ì±ø¥ó¿z¿ï

        If X <> "" And Sheets(1).Cells(K, 3) <> "" Then
            
            Sheets(2).Cells(2, 3).AutoFilter
            Cells(i, 1).AutoFilter Field:=3, Criteria1:="=*" & Mid(X, 1, 8) & "*", Operator:=xlOr, Criteria2:="=" & X & ""
            Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(2, 4).End(xlDown)).Font.Color = RGB(0, 0, 0)

            Cells(i, 1).AutoFilter Field:=3, Criteria1:="=*" & Mid(X, 1, 5) & "*", Operator:=xlOr, Criteria2:="=" & X & ""
            Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(2, 4).End(xlDown)).Font.Color = RGB(0, 0, 0)
            
            If X Like "####[-.]*" Or X Like "####[A-Z]*" Then
                Cells(i, 1).AutoFilter Field:=3, Criteria1:="=*" & Mid(X, 1, 4) & "*", Operator:=xlOr, Criteria2:="=" & X & ""
                Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(2, 4).End(xlDown)).Font.Color = RGB(0, 0, 0)
            End If

            If Sheets(1).Cells(K, 2) <> "" Then
                 If ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas.Count = 1 Then
                     Sheets(2).Cells(2, 3).AutoFilter
                     Cells(i, 1).AutoFilter Field:=2, Criteria1:="=*" & X & "*", Operator:=xlOr, Criteria2:="=" & X & ""
                     Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(2, 4).End(xlDown)).Font.Color = RGB(0, 0, 0)
                     
                     Cells(i, 1).AutoFilter Field:=2, Criteria1:=Sheets(1).Cells(K, 2)
                     Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(2, 4).End(xlDown)).Font.Color = RGB(0, 0, 0)
                 End If
            End If
            
            
        End If
         
        If X = "" Then
            X = Trim(Sheets(1).Cells(K, 2))
            Cells(i, 1).AutoFilter Field:=2, Criteria1:="=*" & X & "*", Operator:=xlOr, Criteria2:=Sheets(1).Cells(K, 2)
            Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(2, 4).End(xlDown)).Font.Color = RGB(0, 0, 0)
            If ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas.Count = 1 Then
                Sheets(2).Cells(2, 3).AutoFilter
                Cells(i, 1).AutoFilter Field:=1, Criteria1:=Sheets(1).Cells(K, 1)
                Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(2, 4).End(xlDown)).Font.Color = RGB(0, 0, 0)
            If ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas.Count = 1 Then
            Exit For
            End If
                Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(2, 4).End(xlDown)).Font.Color = RGB(0, 0, 0)
            End If
        End If
        
    Exit For
    Next i
   
    If G = True Then
        Range(Sheets(2).Cells(1, 1), Sheets(2).Cells(1, 4).End(xlDown)).Copy Sheets(3).Cells(1, 1)
        G = False
    Else
        Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(2, 4).End(xlDown)).Copy Sheets(3).Cells(1, 1).End(xlDown).Offset(1, 0)
    End If
    Sheets(2).Cells(2, 3).AutoFilter

Next K
Sheets(3).Select
Range(Sheets(3).Cells(2, 1), Sheets(3).Cells(2, 4).End(xlDown)).RemoveDuplicates Columns:=1
Range(Sheets(3).Cells(2, 1), Sheets(3).Cells(2, 4).End(xlDown)).Font.Color = RGB(0, 0, 0)
Application.ScreenUpdating = True
End Sub

TOP

¦^´_ 40# qaqa3296
§A¦³¸Õ¹L§Úµ¹§Aªº³Ì«á¤@­Ó ­×§ï«áªº¶Ü?  §Ú­è¤~´ú¸Õ¤@¤U ¬O¥i¥Hªº   
§Úªº «ä¸ô¬O ³W®æ ¨S¦³ ´N§ä«~¦W ¦pªG«~¦W¦b¨S¦³´N§ä«~¸¹    ¤£ª¾³o¼Ëªº¤è¦V¬O¤£¬O¹ïªº   ¦ý¬O»P·Ç¤jªº¤ñ¹ïµ²ªG¬O¤@¼Ëªº
¦pªGÁÙ¦³¤£¥¿½Tªº¦a¤è½Ð§A§i¶D§Ú  §Æ±æ§A¯à°÷µ¹§Ú¤@­Ó¾÷·|¥i¥H¾Ç²ß  ^_^

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-8-26 18:51 ½s¿è

¦^´_ 40# qaqa3296

­è¤~ ´ú¸Õ¤@¤U  ¦pªG  «~¸¹¸ò³W®æ ¬°ªÅ¥Õ  ¥u§ä«~¦W ¦pªG¬O­^¤å¶}ÀY ·Ç¤jªº¬O·|Åã¥Ü
   ¦pªG¬O¤¤¤å¶}ÀY¦ý  «~¸¹¸ò³W®æ ¬°ªÅ¥Õ  ¤£·|Åã¥Ü    °ß¤@¤£¦Pªº¦a¤è¦b³o
¥Ø«e¬Ý¨ì¬O³o¼Ë ¦ý§Ú¤£ª¾¹D¬O¤£¬O§A­nªº

TOP

¦^´_ 43# qaqa3296

¨S¿ìªk ÁÙ¬O¦³®t  ®æ¦¡¤Ó½ÆÂø §Ú§ë­°¤F.. ¤£¹LÁÙ¬O§â Àɮשñ¤W¨Ó §A¬Ý¬Ý§a >"<  


javascript:;

µ²ªG0830.rar (40.23 KB)

TOP

µ²½×¬O...¤£¯à¥Î¿z¿ï...¨þ¨þ..

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-8-30 22:33 ½s¿è

¦^´_ 43# qaqa3296
³o¬O¥Î ¥ý¤ñ¹ï  µM«á¦A¤ñ¹ïµ²ªG»P´M§ä½d³òªº¬Û¦ü«× ³Ì§Cªº ¦A¿z¿ï  ¦ýÁÙ¬O¦³®t...§Ú§âÀɮשñ¤W¨Ó §A¬Ý¤@¤U...>"<  ¯uªº ...¨S¿ìªk¤F..
·|¦hM00027        ·Ù¨®        6864        32 ¸ò M00025        ¨®¬[        6844        0 ¦]¬°¸Ì­±¦³¬Û¦ü«×ªº°ÝÃD..




javascript:;

µ²ªG083002.rar (48.39 KB)

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-9-1 19:52 ½s¿è

¦^´_ 47# qaqa3296
©êºp  ¨S¦³¾ã²z´Nª½±µ¤W¶Ç ³Â·Ð§A¦bÀ°§Ú´ú¸Õ¤@¦¸ §Ú·Qª¾¹D¦æ¤£¦æ  ¯uªº¶]¤£°Ê ´Nºâ¤F..  >"<

javascript:;

µ²ªG0901.rar (39.5 KB)

TOP

¦^´_ 49# qaqa3296
¨º¬O §PÂ_¿z¿ïµ²ªG¬O¤£¬OªÅ­È §Ú§ä¨ì GBKEE ¤j¤j¥H«e¼gªº¤è¦¡  «ô°U§A¦b¦³ªÅªº¸ÜÀ°§Ú¦b¸Õ¤@¦¸¬Ý¬ÝÁÙ·|¤£·|³o¼Ë
§Ú¤]¬O·s¤â §Æ±æ§Ú­Ì¥i¥H¤¬¬Û¾Ç²ß  §Ú¤]§Æ±æ§A¤£­n´ú¸Õªº¤Ó±ß ¦³ªÅ¦A´ú¸Õ´N¦n¤F §Úªº·Qªk¬O ¥ý½T©wÅÞ¿è¨S¦³°ÝÃD¤§«á
¦A©¹¦r¨å¥[°}¦Cªº¤è¦V«e¶i ºCºC¾Ç²ß¬ã¨s ¤@¨B¤@¨B¨Ó ¦pªG¯uªº¤£¦æ ¦A§â°ÝÃD´£¥X¨Ó °Ý¤j¤j­ÌÀ³¸Ó¥i¥H±o¨ìµª®×  
«e´£¬O§AÄ@·Nªá®É¶¡  ³­§Ú¤@°_¾Ç²ß¬ã¨s   >"<       ¯uªº«ÜÁÂÁ§AÄ@·NÀ°§Ú´ú¸Õ


javascript:;

µ²ªG0902.rar (40.25 KB)

TOP

¦^´_ 51# qaqa3296
³o¬O¦b­×§ï«áªº ÁÙ¬O¦³®t ¤@ÂI  ¦³ªÅªº¸Ü À°§Ú´ú¸Õ¤@¤U   ³o¦¸¬O¥Î·Ç¤jªº³W«h ¥[¤W©î¦rªº¤è¦¡  ¤£ª¾¹D¦æ¤£¦æ .³Â·Ð§A¤F...^^"



    javascript:;

µ²ªG0906.rar (38.14 KB)

TOP

¦^´_ 51# qaqa3296
³o¬O °}¦C ¥[ Function ªº¤è¦¡¼gªº À³¸Ó·|¤ñ¸û§Ö¤@ÂIÂI.


javascript:;

µ²ªG0906_1.rar (44.14 KB)

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD