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

[µo°Ý] ª«¥óÅܼƻP°Ï¶ôÅܼưÝÃD½Ð±Ð

[µo°Ý] ª«¥óÅܼƻP°Ï¶ôÅܼưÝÃD½Ð±Ð

dear all ¤j¤j
1 ¦p¤USub yy()­ì¥i¨Ï¥Î  copy ¦Ü¥t¤@excel ¥X²{ ¨S¦³³]©wª«¥óÅܼƩΠwith°Ï¶ôÅܼƠ µLªk§@·~
  1.1 °±©ó c.Copy Sheet2.[a1]
2 ½Ð°Ý¦p¦ó³B²z ·Ð¤£§[½ç±Ð  thanks *10000

Sub yy()
    Dim n%, i%, ci%, c As Range
    n = [a65536].End(xlUp).Row
    For i = 2 To n
        If Application.CountIf(Range("a2:b" & n), Cells(i, 1)) > 1 Then
            If c Is Nothing Then
                Set c = Rows(i)
                ci = 1
            Else
                Set c = Union(c, Rows(i))
                ci = ci + 1
            End If
        End If
    Next i
    c.Copy Sheet2.[a1]
    With Sheet2
        .Range("A1:b" & ci).Sort Key1:=.Range("a1")
    End With
End Sub
ù

dear all ¤j¤j
1 ¦p¤USub yy()­ì¥i¨Ï¥Î  copy ¦Ü¥t¤@excel ¥X²{ ¨S¦³³]©wª«¥óÅܼƩΠwith°Ï¶ôÅܼƠ µLªk§@ ...
rouber590324 µoªí©ó 2014-12-31 14:42

§A½T»{¤@¤U,
·í A Äæ¥þ³¡¨S¸ê®Æ®É,
´N·|µo¥Í¦¹±¡§Î.

¤@¶}©l   n = [a65536].End(xlUp).Row  ªº n ·|µ¥©ó 1,
±µµÛ°j°é¤£·|°õ¦æ,
c=Nothing
c.Copy µLªk°õ¦æ => ¨S¦³³]©wª«¥óÅܼƩΠwith°Ï¶ôÅܼÆ

TOP

DEAR luhpro
OK °Õ  ·PÁ±z¤§«ü¾É  THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD