- ©«¤l
- 21
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 52
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2015-3-13
- ³Ì«áµn¿ý
- 2024-5-2
|
¦^´_ 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 |
|