通过数据-分列 删除A列的前两个字符 与录入VBA(动画）

mxg825

<p><img src="data/attachment/forum/dvbbs/2007-11/20071191547098703.gif" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" /><br/></p><p>VBA代码</p><p>Sub 清除A列前两个字符()<br/>Columns("A:A").Select<br/>&nbsp;&nbsp;&nbsp; Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FieldInfo:=Array(Array(0, 9), Array(2, 1)), TrailingMinusNumbers:=True</p><p>End Sub</p>

雪舞霓裳

<p>楼主在这里收金币不太好吧[em03]</p><p>这样都没有什么人学习了</p><p>如果金币不够用可以找大家帮忙的</p>

雪舞霓裳

<p>VBA代码</p><p>Sub 清除A列前两个字符()<br/>Columns("A:A").Select<br/>&nbsp;&nbsp;&nbsp; Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FieldInfo:=Array(Array(0, 9), Array(2, 1)), TrailingMinusNumbers:=True</p><p>End Sub</p><p>&nbsp;</p>

通过数据-分列 删除A列的前两个字符 与录入VBA(动画）

<br/>

手鼓

<p>可不，楼主的金币可比我多多了。</p>

mxg825

<p>移居！</p>[em01]

雪舞霓裳

<p>[em04]不好意思,没征得你的同意就移居了</p><p>动画放"动画版块"更好的</p><p>还可以问动画版的版版要金币呢</p>[em02]

makin_mao

没有钱，好苦啊

toby6862166

<p>不错</p><p></p>

sunmin623

[em01]定一下

majingang

学习学习