- ©«¤l
- 34
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- WIN7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-7-11
- ³Ì«áµn¿ý
- 2016-12-2
|
IF¥y¤l¤Óªø.rar (7.76 KB)
½Ð°Ýn«ç¼ËÁY´î¥y¤l©O
§Ún¼gªº·N«ä¬O
¦pªGC9¦³¾·ªº®ÉÔ
¨ú®ø¦X¨ÖÀx¦s®æ¨Ã¥B¸ê®ÆåªR¡A¥H"¥]"¬°°ò·Ç¡A±NÀx¦s®æ¤À¶}
¦ý§Ú©È§Ú¼gªºµ{¦¡½X¡A·|Åܦ¨ ¸ê®ÆåªR¸òIF¨SÃö«Y
½Ð±Ð¦U¦ì¤j¤j¤F
[attach]25057[/attach]- Sub ¥¨¶°2()
- '
- ' ¥¨¶°2 ¥¨¶°
- If Range("C9") Like "*¾·*" Then Range("C9").UnMerge
- Range("C9").TextToColumns Destination:=Range("C9"), DataType:=xlDelimited, _
- TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
- Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
- :="¥]", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
- End Sub
½Æ»s¥N½X |
|