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

jsc0518

Dear all,
§Ú¨Ï¥Î¿ý»s¤è¦¡»s§@VBA
(1).¿ï¾ÜDÄæ¡Acopy
(2).¿ï¾ÜUÄæ¡A¿ï¾Ü©Ê¶K¤W-­È
(3).¸ê®Æ(ÂI¿ï¤u¨ã¦C)-²¾°£­«½Æ¶µ
    ** ActiveSheet.Range("$U$1:$U$20000"). --> ³o¤@¬q¬O§Ú¥Î¤â°Ê§ïªº¡A¦]¬°¥H«áÁÙ·|¦³¦hªº¸ê®Æ²£¥X
(4).¿ï¾ÜUÄæ¡Acopy
(5).¿ï¾ÜPÄæ¡A¿ï¾Ü©Ê¶K¤W-­È
(6).¿ï¾ÜUÄæ¡A²M°£¸ÓÄæ¦ì¸ê°T



¤U­±¬O¿ý»sªº»yªk¡A¬O§_¥i¥H¦A²¤Æ©O¡H

Sub Repeat()

    Columns("D:D").Select
    Selection.Copy
    Columns("U:U").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$U$1:$U$20000").RemoveDuplicates Columns:=1, Header:=xlYes
    Selection.Copy
    Columns("P:P").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Columns("U:U").Select
    Selection.ClearContents


    Range("Q1").Select

End Sub

jsc0518

¦^´_ 2# singo1232001
Dear singo1232001,
±z¦n¡I·PÁ±zªº¼ö¤ß¦^´_¡C
»yªk¥i¥H¨Ï¥Î¡A¦ý°õ¦æ¹Lµ{¤¤³t«×«ÜºC¡A¥t¥~¥u­n§R°£¤@Äæ¦ì¤º¸ê®Æ¡AVBA¤]·|¶]
ÁÂÁ¼Ú

jsc0518

¦^´_ 3# samwang
Dear samwang,

±z¦n¡I·PÁ±zªº¼ö¤ß¦^ÂСA»yªk¥i¥H¨Ï¥Î¡C
½Ð±Ð¤@¤U
1.­þ¬q¬O"§R°£­«½Æ©Ê¸ê®Æ"ªº»yªk©O¡H
2."¥Î¦r¨åªº¼gªk"¬O¬Æ»ò·N«ä©O¡H

Thank you.

jsc0518

¦^´_ 7# singo1232001
Hi ·PÁ±zªº¦^ÂмڡA§Ú¸Õ¸Õ¬Ý¡I

jsc0518

¦^´_ 6# samwang
Hi ÁÂÁ±zªº¸ê°T¡A§Ú§ä¬Ý¬Ý¸ê®Æ

jsc0518

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

jsc0518

¦^´_ 12# singo1232001

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