- ©«¤l
- 17
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows10
- ³nÅ骩¥»
- windows10
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2020-11-18
- ³Ì«áµn¿ý
- 2022-1-12
|
[µo°Ý] ¦p¦ó±N¿z¿ïµ{¦¡½X¤Î§R°£«½Æµ{¦¡½X¦X¨Ö
¦U¦ì¥ý¶i¤j®a¦n¡A
§Ú§Q¥Î¿ý»s¥¨¶°(¦b±q¤¤×§ï)¡A¿z¿ï¥X§Ú·Qnªº¸ê®Æªí¡A¥t¤S¼¶¼g¥t¥~¤@¥÷¡A§R°£«½ÆÈ(¨Ã«O¯d³Ì·s¸ê®Æ)ªºVBA
·Q½Ð±Ð¡An¦p¦ó±N¨â¥÷µ{¦¡½X¦X¨Ö¡A¥i¥H¦b¿z¿ï¸ê®Æ¹Lµ{¤¤¡A¤@¨Ãç°£«½Æ¸ê®Æ(«O¯d³Ì·s¸ê®Æ)¡A
¥H¤U¬O§Úªºµ{¦¡½X¡AÀµ½Ð¨ó§U
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 |
|