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

[µo°Ý] ½Ð±Ð¦¹µ{¦¡¦p¦ó§ó§ï??

[µo°Ý] ½Ð±Ð¦¹µ{¦¡¦p¦ó§ó§ï??

Sub bac()
Sheets("sheet1").Select
With Sheets("sheet1")
Dim aa, k,ss
Set aa = Sheets("sheet1").Range("n2:n1048").Find(What:="*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious, LookAt:=xlWhole)
For k = 1 To aa.Row
ss = Application.Large(Range("n2:n1048"), k)
'==> ¶Ç¦^ ssªº¥kÃä1®æªº­È¸ò¦ì§}
next
end with
end sub

¤W¶ÇÀÉ®×3Q

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD