產(chǎn)品型號管理系統(tǒng)

duomu

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

請各位看看,多指教!！

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

rjacky

謝謝分享，做得不錯(cuò)，很有參考價(jià)值

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
==========================
這個(gè)數(shù)組邊界的循環(huán)是做什么用的。

hjackie

謝謝分享

beenet

let me see see

ttstory

謝謝分享，做得不錯(cuò)