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

[µo°Ý] ¦b¤@µ§¸ê®Æ¸Ì­± ¥h±¼0 & ªÅ®æ µM«á­«·s±Æ§Ç

[µo°Ý] ¦b¤@µ§¸ê®Æ¸Ì­± ¥h±¼0 & ªÅ®æ µM«á­«·s±Æ§Ç

½Ð°Ý¤@¤U,»Ý­n§â¸ê®Æ¸Ì­±ªº0»PªÅ®æ¥h°£,µM«á±q¤p¨ì¤j±Æ§Ç
¦Û¤v¼g¤F¤@­ÓVBAµ{¦¡,¦ý¬Oµoı¸ê®Æ¬O¤pµ§¼Æ®É¨S¦³°ÝÃD,¥i¥H¥h±¼0¸òªÅ®æ µM«á±q¤p¨ì¤j±Æ¦n
¦ý¬Oµ§¼Æ¶W¹L¤@¸Uµ§¤§«á,·|µo²{¨º¨Ç¸ê®Æ¥u¦³¬Y³¡¤À¦³³¡¦b¥h±¼0¸ò­«·s±Æ§Ç,³Ñ¤Uªº«h·|¸É¤W #N/A
¤£ª¾¹D¬Oµ{¦¡­þ­Ó³¡¤À¥X²{°ÝÃD¤F,
½Ð°Ý¬O§_¯àÀ°¦£­×§ïµ{¦¡½X¡AÁÂÁÂ,·P®¦ :) :)

¥h0©MªÅ®æ ±q¤p¤j¨ì±Æ§Ç.rar (831.35 KB)

µ{¦¡½X:
Sub ±Æ§Ç()
Application.ScreenUpdating = False

Dim myarr() As Variant
a = Application.WorksheetFunction.CountA(Range("B2:B100000"))
ReDim myarr(a) As Variant
Dim Rng As Range

k = 0
For i = 2 To Range("A2").End(xlDown).Row
    If Cells(i, "B") <> 0 And Cells(i, "B") <> "" Then
       myarr(k) = Cells(i, "B")
       k = k + 1
    End If
Next

[B2:B1048576].Clear

        Set Rng = Range("B2").Resize(k)
        Rng.Value = Application.Transpose(myarr)
        Rng.Sort key1:=Rng(1), order1:=xlAscending, Header:=xlNo
  
Application.ScreenUpdating = True

End Sub

Sub ±Æ§Ç()
With Range([B2], Cells(Rows.Count, 2).End(xlUp))
     .Replace "0", "", Lookat:=xlWhole
     .Sort key1:=.Item(1), order1:=xlAscending, Header:=xlNo
End With
End Sub

TOP

¦^´_ 2# ­ã´£³¡ªL

ÁÂÁ  ­ãª©¥Dªº¦^ÂÐ
­è­è´ú¸Õ¹L«á,µ{¦¡®Ä²v«D±`°ª,µ{¦¡½X«D±`²¼ä ·P®¦
¥t¥~¦³°ÝÃD·Q½Ð±Ð : µ{¦¡½X¸Ì­±¦³ Lookat:=xlWhole  ==> ³o­Ó¬O°µ¬Æ»ò¥Îªº©O?
ÁÂÁÂ

TOP

¦^´_ 3# bomber1224

Lookat:=xlWhole  §¹¥þ¤ñ¹ï

102
0
2300

¥u·|±N0¨ú¥N¬°ªÅ, 102¤Î2300¤¤ªº0¤£¨ú¥N

Lookat:=xlPart  ³¡¥÷¤ñ¹ï
102 >> 12
0 >> ªÅ¥Õ
2300 >> 23

TOP

¦^´_ 4# ­ã´£³¡ªL


­ì¨Ó¦p¦¹ªü!! ÁÂÁ§Aªº¦^µª,  ·P®¦

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD