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

[µo°Ý] ¬O§_¥i¥H²¤Æ¿ý»s«áªºVBA »yªk

¦^´_ 10# ML089
Hi ±ß¤W¦n¡I
·PÁ±zªº¼ö¤ß«ü¾É¤Î¦^ÂÐ
¬O¹L¤FVBA¡ATEST OK¡A³t«×¶W§Ö
·PÁ±zÅo¡I
Just do it.

TOP

¦^´_ 11# jsc0518

µ¹jsc0518¤j°Ñ¦Ò
À°M¤j¸É¥R¤@¤U
Sub Macro2()
     Columns( "P:P").ClearContents  '<--¥[³o¦æ¥i­«½Æ¨Ï¥Î ¦]AdvancedFilter ªº¶K¤W¦ì¸m¶·¬°ªÅ
    Columns("D:D").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns( "P:P"), Unique:=True
    [P1].Delete Shift:=xlUp '¦pªG¤£­nªíÀY ¥[¤W³o¦æ
End Sub

TOP

¦^´_ 12# singo1232001

Dear singo1232001,
·PÁ±zªº¦^ÂФθɥR¡A´ú¸ÕOK¡AÁ°աI
Just do it.

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD