[µo°Ý] Àx¦s®æ¸ê®Æ©î¶}°ÝÃD´M°Ý

rouber590324

DEAR ALL ¤j¤j
1.¦p¹Ï¤@ ¬° ©ó BÄæ¨q¥X  A1Àx¦s®æ¤º¥H ","¬° KEY ±N Àx¦s®æ¸ê®Æ©î¶}¦Ü BÄæ
2.½Ð°Ý°²¦p§Ú A1Àx¦s®æ¸ê®Æ°£ ","  ÁÙ¦³ "#" »P ";" ®É¸Ó¦p¦ó­×§ï
  2.1 ¨Ò : A1= 1;2,3,4#5;6   
    2.1.1 µ²ªG   B1=1   B2=2 B3=3 B4=4  B5=5  B6=6
3.·Ð¤£§[½ç±Ð   THANKS
¹Ï¤@
Sub nn()
  Dim lRow&
  Dim aR, aA
  
  aR = Split([A1], ",")
  lRow = 1
  For Each aA In aR
    Cells(lRow, 2) = aA
    lRow = lRow + 1
  Next
End Sub

stillfish00

¦^´_ 1# rouber590324
¥i¥H¥Îreplace§â #©M ; ¨ú¥N¬° ,
¦A¥Î split ¤À¶}

koo

¤U¸ü (52.74 KB)

2015-5-6 19:57

rouber590324

DEAR   stillfish00  ¤j¤j
¦n¤èªk  ÁŵM¶}®Ô
THANKS*10000

¥i¥H¥Îreplace§â #©M ; ¨ú¥N¬° ,
¦A¥Î split ¤À¶}

gn001038600

¦^´_ 1# rouber590324


1.¦p¹Ï¤@ ¬° ©ó BÄæ¨q¥X  A1Àx¦s®æ¤º¥H ","¬° KEY ±N Àx¦s®æ¸ê®Æ©î¶}¦Ü BÄæ
2.½Ð°Ý°²¦p§Ú A1Àx¦s®æ¸ê®Æ°£ ","  ÁÙ¦³ "#" »P ";" ®É¸Ó¦p¦ó­×§ï
  2.1 ¨Ò : A1= 1;2,3,4#5;6   
    2.1.1 µ²ªG   B1=1   B2=2 B3=3 B4=4  B5=5  B6=6
3.·Ð¤£§[½ç±Ð   THANKS

¦pªG±zªº¸ê®Æ®æ¦¡³£¬O¶È§ì³æ¼Æ¦ì¸m¥i¸Õ¬Ý¬Ý¥H¤U

sub aa()
for i = 1 to 12 step 2
       If i < 2 Then
             sheet1.Cells(i, 2) = Mid(sheet1.Cells(1, 1), i, 1)
       Else
             sheet1.Cells((i + 1) / 2, 2) = Mid(sheet1.Cells(1, 1), i, 1)
       End If
next
end sub

rouber590324

DEAR gn001038600 ¤j¤j
·PÁ±z´£¨Ñ¥t¤@¤è¦¡.§Ú¤§¸ê®Æ­è¦n³£¬O³æ¼Æ.THANKS*10000