[µo°Ý] ³oºØ­«½Æ­È§R°£ªºVBA¸Ó¦p¦ó¼g(2003)

terrykyo520

EXCEL¬°2003ª©¥»
¦pªGB¦C¦³­«½Æ´N§PÂ_C¦C¬O§_¤]¬Û¦P
¤£¦P«h¤£§R°£
B.C¬Ò¬Û¦P«h§R°£¦¹¦æ Á|¨Ò¦p¤U
    A     B    C
1  1   P1   B6
2  2   P1   B2
3  3   P1   B6
4  4   P2   B2
5  5   P5   B6

²Ä2¦æªºB¬°P1 »P²Ä1¦æªºB­È¬Û¦P¦ýC¤£¦P ¤£§R°£
²Ä3¦æªºB»PC©M²Ä1¦æªº¬Û¦P ¬G§R°£
½Ð°ÝVBA¸Ó¦p¦ó¼g~ÁÂÁÂ
³s§R°£BÄæ­«½Æ­È³£¼g¤£¥X¨Ó~...
¨Ò¤l¹Ï

¤U¸ü (91.43 KB)

2015-8-10 16:04

terrykyo520

¦^´_ 2# Scott090


RemoveDuplicates³o¥u¦³2007¥H¤Wª©¥»¤~¥i¥Î
§Úªºª©¥»¬O2003ªº
ÁÂÁÂ

terrykyo520

¦^´_ 4# Scott090
§Ú®M¥Î¤U¥hµ²ªG©Ç©Çªº~·|ªÅ¤@¦æ¤S ¦A¤U¤@¦æA¦Cªº­È¶]¨ìB¥h B¦Cªº­È¶]¨ìC¦C C¦Cªº­È¤£¨£
¥i§_½ÐÀ°§Ú¨Ì³oTESTªºEXCEL¤U¥h¬Ý¬Ý©O~~ÁÂÁ±оÇ~
·Q­n°õ¦æ«áªºµ²ªG¦p¹Ï~¥ª°õ¦æ«e~¥k¬°°õ¦æ«á

¤U¸ü (54.94 KB)

2015-8-11 11:45

TEST.rar (1.59 KB)

¤U¸ü¦¸¼Æ: 10

2015-8-11 11:47

terrykyo520

¦^´_ 8# lpk187
ÁÂÁÂ~¥i¥H­C~

½Ð°Ý³o¦æªº·N«ä¬O
Cells(Rows.Count, 1).End(xlUp).Row

¦pªG§Úªº²£«~¦b²ÄM¦C ¦a°Ï¦b²ÄQ¦C  ¸ê®ÆÁ`¦@¨ìAD¦C
¬O­n§ï¦¨
arr = Range("a2:AD" & Cells(Rows.Count, 1).End(xlUp).Row)

­n«ç»ò­×§ï©O~ÁÂÁÂ

terrykyo520

¦^´_ 9# Hsieh

OK¥i¦æ­C
§Ú¥u¬Ý±oÀ´ Dim A As Range
³Ñ¤U~¦nÃø

¦pªG§Úªº²£«~¦b²ÄM¦C ¦a°Ï¦b²ÄQ¦C  ¸ê®ÆÁ`¦@¨ìAD¦C
­n«ç»ò­×§ï©O~ÁÂÁÂ

terrykyo520

¦^´_ 10# Scott090


    ÁÂÁÂÀ°¦£~¥Ø«e§ÚµLªk¤U¸üÀÉ®×
    ¥u¯à¥ý»¡Án3Q~¤§«á¦A¤U¸ü¬Ý¬Ý¼gªk~~

terrykyo520

¦^´_ 11# GBKEE


³o¨âºØ¤]¥i¥H­C~¦n¦h¤èªk
¦pªG§Úªº²£«~¦b²ÄM¦C ¦a°Ï¦b²ÄQ¦C  ¸ê®ÆÁ`¦@¨ìAD¦C
¬O­n§ï¦¨
Sub Ex()
    Dim R As Range, Rng As Range
    With ActiveSheet.UsedRange
        .Columns("M:Q").AdvancedFilter Action:=xlFilterInPlace, Unique:=True


Sub Ex1()
    Dim Sh As Worksheet, wb As Workbook
    Set Sh = ActiveSheet
    Sh.Copy
    Set wb = ActiveWorkbook
    With wb.Sheets(1)
        .UsedRange.Columns("M:Q").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

§ï³o¨âÃä¶Ü~TKS