¸ê®Æ½s½XºI¨ú

oak0723-1

©óbÄæ¦ì¿é¤J½s½X
§Æ±æ¯à¦p»¡©ú¨Ì§ÇºI¨ú¥X©Ò¶·¦ì¸m¤§½s½X

oak0723-1

¥t¥~½Ð±Ð¦U¦ì¥ý¶i¤@­Ó·§©Àªº°ÝÃD
¤p§Ì¦³¤@²ÕÀɮ׼ƹF¤d¦ì¼Æ¥H¤Wªºtextªº¤å¦rÀÉ
¨C­Ó¤å¦rÀɪº®æ¦¡³£¤@¼Ë(¦p³o­Ó°ÝÃDªº®æ¦¡)
¤p§Ì·Q°µ¤@­Óµ{¦¡¤@¦¸¥iŪ¨ú©Ò«ü©w¼Æ¶qªºÀɮרè̤p§Ì©Ò·Q°µªº­pºâ«á¦A§e²{¤p§Ì©Ò»Ý­nªºªí®æ¤Î²Î­pªí
³o¼Ëªººc·Q
¥i¥H¥Î­þºØ¤è¦¡(«ü¥Î¦óºØµ{¦¡»y¨¥½s¼g³Ì¬°¤è«K)¹F¦¨?

oak0723-1

ÁÂÁ¦U¦ì¥ý¶iªº«ü±Ð

hcm19522

http://blog.xuite.net/hcm19522/twblog/510417616

hcm19522

C2:O28=MID($B2,CHOOSE(COLUMN(A1),1,9,15,16,17,25,33,38,45,54,58,59,60),CHOOSE(COLUMN(A1),8,4,1,1,8,8,5,7,9,4,1,1,4))

prin.huang

1. Sub div()
   
2.     Dim I%, J%
   
3.     Dim lenI() As Variant, str1() As Variant, str2(27, 13) As String
   
4.     lenI = Array(8, 4, 1, 1, 8, 8, 5, 7, 9, 4, 1, 1, 4)
   
5.     str1 = Worksheets("Sheet2").Range("B2:B28").Value
   
6.    
   
7.     For I = 1 To 27
   
8.         For J = 1 To 13
   
9.             str2(I, J) = Left(str1(I, 1), lenI(J))
   
10.             str1(I, 1) = Trim(Right(str1(I, 1), Len(str1(I, 1)) - lenI(J)))
    
11.         Next J
    
12.     Next I
    
13.     Worksheets("Sheet2").Range("C2:O28") = str2
    
14. End Sub

½Æ»s¥N½X