Hsieh

¦^´_ 3# pinklee
°ê¦rªº¼Æ­È­nÂন¼Æ¦r·|¦³²ßºD¤£¦Pªº°ÝÃD
¨Ò¦p:12­Y¬O¼Ð·ÇÀ³¥H¤@¤Q¤G¤~¯à»P¤G¤Q¥H¤W¤å¼Æ¦r°t¦X
­Y¥H¼Æ¦rª½±µ½sĶ«hÀ³¬°¤@¤G
­n¥H¤f»y¤ÆÂàĶ¦ü¥G¦³§xÃø

Hsieh

¦^´_ 7# pinklee


    ¦pªG°ê¼Æ¦rªº¼gªk»P®æ¦¡DBNum1¬Û¦P¥i¸Õ¸Õ
¹w³]³Ì¤j¼Æ¦r¬°2000(¦]¬°¸¹½X¦³¶W¹L1000¸¹ªº¦a§})
¥i¦Û¦æ³]©w

1. Sub nn()
   
2. Dim C As Range
   
3. For i = 2000 To 1 Step -1
   
4. k = Application.Text(i, "[DBNum1]")
   
5.   Cells.Replace k, i
   
6. Next
   
7. For Each C In ActiveSheet.UsedRange
   
8. C.Value = StrConv(C.Value, vbNarrow, LocaleID)
   
9. Next
   
10. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 9# pinklee

¤£¬O»¡¤F­n¥HDBNUM1®æ¦¡¬°«e´£¶Ü?
­Y¦³¨âºØ¥i¯à
¦p:12=> ¤@¤Q¤G
    ©Î¤Q¤G
    ©Î¤@¤G

1. Sub nn()
   
2. Dim C As Range
   
3. With ActiveSheet.UsedRange
   
4. For i = 200 To 1 Step -1
   
5. k = Application.Text(i, "[DBNum1]")
   
6. m = Application.Text(i, "[DBNum1]0")
   
7.   .Cells.Replace m, i
   
8.   .Cells.Replace k, i
   
9.   If Int(i / 10) = 1 Then .Cells.Replace Mid(k, 2), i
   
10. Next
    
11. For Each C In .Cells
    
12. C.Value = StrConv(C.Value, vbNarrow, LocaleID)
    
13. Next
    
14. End With
    
15. End Sub

½Æ»s¥N½X