怎样把单元格上的数据分离

ANTALZW

大家好，有个问题请你们帮帮忙，因为表中的“颜色/价格”都在同一个单元格里了，现在我想把它分出来，而且要从原价格上再加上20，请问要怎么操作？？？
报价单24.rar (3.8 KB, 下载次数: 26)

2010-8-24 14:12 上传

点击文件名下载附件

zhangjimfu

=getnumber1($B3,COLUMN(A1))

zhangjimfu

楼主请看附件！

cxh67795005

getnumber1这个函数是什么函数啊？

亡者天下

附件显示错误！

？name？

ANTALZW

是啊，怎么会显示错误？

ANTALZW

各位高手，帮帮我啊

justflute

你还是到函数版块去问问，那里也许会有答案

H开心就好

提取数字自定义函数代码：应用时注意宏的相关设置，此函数有连个参数，第一个是提取的数据源，第二个是数据源中有从第几个数字开始提取！！试试吧！！
Option Explicit

Function GetNumber(rng As Range, Pos As Integer) As Single
    Dim i           As Integer
    Dim x           As Integer
    Dim t           As Integer
    Dim ilen        As Integer
    Dim StartPos    As Integer
    Dim EndPos      As Integer
    Dim sStr        As String
    Dim myStr       As String
    Dim numArray()  As String
   
    Application.Volatile
    x = 0
    t = 0
    myStr = "0123456789."
    sStr = Trim(rng.Value)
    ilen = Len(sStr)
   
    For i = 1 To ilen
        Do
            x = x + 1
            While InStr(1, myStr, Mid(sStr, x, 1)) < 1 And x <= ilen
                x = x + 1
            Wend
            StartPos = x
            While InStr(1, myStr, Mid(sStr, x, 1)) > 0 And x <= ilen
                x = x + 1
            Wend
            EndPos = x - 1
            If StartPos <= EndPos And IsNumeric(Mid(sStr, StartPos, EndPos - StartPos + 1)) Then
                t = t + 1
                ReDim Preserve numArray(1 To t)
                numArray(t) = Mid(sStr, StartPos, EndPos - StartPos + 1)
            End If
        Loop Until x >= ilen
    Next
    On Error GoTo exitfun
    sStr = numArray(1)
    On Error GoTo 0
    If Pos > UBound(numArray) Then
        GetNumber = 0
        Else
        GetNumber = numArray(Pos)
    End If
    Exit Function
exitfun:
    GetNumber = 0
End Function