产品型号管理系统

duomu

[ 本帖最后由 duomu 于 2012-9-20 15:26 编辑 ]

请各位看看,多指教!！

[[i] 本帖最后由 duomu 于 2008-6-23 14:59 编辑 [/i]]

rjacky

谢谢分享，做得不错，很有参考价值

nanoffice

谢谢，先下下来再说

5988143

謝謝分享~

chenwm1973

[:50] [:50] [:50]

yori2007

[:31] [:50]

wu8313

Sub xxx()
    Dim arr() As String
    Dim i, j

    For j = 2 To Range("d800").End(xlUp).Row
        arr() = Split(Range("d" & j), "/")
        For i = LBound(arr()) To UBound(arr())
            arr(i) = Range("b" & j) & " " & arr(i)
        Next
        Range("d" & j) = Join(arr(), "/")
    Next

End Sub
==========================
这个数组边界的循环是做什么用的。

hjackie

谢谢分享

beenet

let me see see

ttstory

谢谢分享，做得不错