[µo°Ý] ¦p¦ó±N¿z¿ïµ{¦¡½X¤Î§R°£­«½Æµ{¦¡½X¦X¨Ö

lilizzzz

¦U¦ì¥ý¶i¤j®a¦n¡A

§Ú§Q¥Î¿ý»s¥¨¶°(¦b±q¤¤­×§ï)¡A¿z¿ï¥X§Ú·Q­nªº¸ê®Æªí¡A¥t¤S¼¶¼g¥t¥~¤@¥÷¡A§R°£­«½Æ­È(¨Ã«O¯d³Ì·s¸ê®Æ)ªºVBA

·Q½Ð±Ð¡A­n¦p¦ó±N¨â¥÷µ{¦¡½X¦X¨Ö¡A¥i¥H¦b¿z¿ï¸ê®Æ¹Lµ{¤¤¡A¤@¨Ã­ç°£­«½Æ¸ê®Æ(«O¯d³Ì·s¸ê®Æ)¡A

¥H¤U¬O§Úªºµ{¦¡½X¡AÀµ½Ð¨ó§U

¤U¸ü (127.05 KB)

2020-11-27 11:27

Sub ²£«~ºØÃþ¤Î®É¶¡°Ï¶¡¬d¸ß()
'
    Sheets("3P-INSPPROD").Range("A1:AK300000").AdvancedFilter Action:=xlFilterCopy _
        , CriteriaRange:=Range("A1:C3"), CopyToRange:=Range("A7:AK7") _
        , Unique:=False

    ActiveWindow.SmallScroll Down:=-27
    Cells.Select
    Range("J21").Activate
    With Selection.Font
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .TintAndShade = 0
    End With
    With Selection.Font
        .Name = "¼Ð·¢Åé"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("E9").Select
End Sub


Sub §R°£­«ÂЭÈ()
'«Ø¥ß¦r¨å¡A§â¹ï¶H½á¤©dictionary¡A(µ¥©ó§PÂ_¨Ì¾Ú)
Set dic = CreateObject("scripting.dictionary")
'±qA¦C³Ì«á¤@¦C¶}©l¶i¦æ¿z¿ï: step -1
'¦pªG¬O±q²Ä¤@¦C¶}©l·|¦³§R°£¸õ¦æ±¡ªp¡AµLªk¹F¦¨§R°£­«½Æ®ÄªG
For i = Range("A65536").End(3).Row To 1 Step -1
'¦pªGAÄæ¼Æ¾Ú¤w¸g¦s¦b¦r¨å¤¤(µ¥©ó­«½Æ¤F)«h°õ¦æTHEN
If dic.exists(Cells(i, "A").Value) Then
'§R°£¸Ó¦C
Rows(i).Delete
Else
'­YAÄæ¼Æ¾Ú¥¼¦s©ó¦r¨å¤º¡A«h±N¨ä¥[¤J¦r¨å
dic(Cells(i, "A").Value) = ""
End If
Next i
End Sub

hcm19522

Ãþ¦ü °Ñ¦Ò  https://blog.xuite.net/hcm19522/twblog/589483476

°a¤ªºµ

¦^´_ 1# lilizzzz

¥i§_§âÀɮ׶ǤW¨Ó ·PÁÂ