[求助]关于字符串内容的拆分

beaccesssuper

<p >本人想将 其中的电压和功率单独取出防在两个单元格中不知道该如何写vba <br>
写了一部分但是感觉效果不理想结果如下<br >
<!--[if !supportLineBreakNewLine]--><br >
<!--[endif]--><o:p></o:p></p>

<p >格式是这样的， 每一行在excell的单元格中<br>
60425 UVS 20W 12V G4 20X10X1OEMASIA<br>
64425 UVS 20W 12V G4 10XBLI6   2817NEOLX<o:p></o:p></p>

<p ><br>
如果分开实际想要得可能非常麻烦。<br>
For i = 2 To 6<br>
str = Sheets("sheet3").Cells(i, 6)<br>
x1 = InStr(str, " ")<br>
x2 = InStr(x1, str, " ")<br>
str1 = Left(str, x2)<br>
x3 = InStr(x2 + 1, str, " ")<br>
str2 = Left(str, x3)<br>
Cells(i, 12).Value = str1<br>
Cells(i, 13).Value = str2<br>
<br>
请指点 给源代码参考<o:p></o:p></p>

[em06][em06]

[此贴子已经被作者于2007-7-16 9:45:29编辑过]

beaccesssuper

高手请指点一下、谢谢斑竹

sgrshh29

<>先自定义一个函数：</P>
<>Function yourF(i As Integer, YourZfc As String) As String<BR>    yourF = Split(YourZfc, " ")(i)<BR>End Function<BR></P>
<>然后，在b1,c1,d1,e1,f1分别写上公式(当然你的数据是在a列中）：</P>
<P>=yourF(0,RC[-1])   =yourF(1,RC[-2])  =yourF(2,RC[-3])  =yourF(3,RC[-4])  =yourF(4,RC[-5])</P>
<P>下拉。</P>

beaccesssuper

<p><br></p><br>    yourF = Split(YourZfc, " ")(i)中<br>(i)是啥呢，能解释一下不？<br>Split函数没这个参数阿也没有连字符啥的<br><br>=yourF(0,RC[-1])  中 RC[-1]又是啥？<br>请<a href="dispuser.asp?id=47417" target="_blank" >sgrshh29</a>指点

sgrshh29

i表示用split这个函数取得字符串中用空格分割开的子字符串的顺序号。RC[-1]表示当前单元格左边第一个单元格，RC[-2]表示当前单元格左边第二个单元格，依次类推。<BR>

beaccesssuper

太感谢了，但是还是不太懂，我在研究一下[em01][em01][em01][em01][em01][em01][em01][em01][em01]