- 帖子
- 2839
- 主題
- 10
- 精華
- 0
- 積分
- 2895
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-2-15
|
Sub TEST()
Dim xR As Range, xH As Range, TT, TR
Set xR = [A1]: Set xH = [H2]
Do
Set xR = xR(2): If xR = "" Then Exit Do
For Each TT In Split(Replace(xR(1, 5), ";", " "), " ")
If TT <> "" Then
xH.Resize(1, 4) = xR.Resize(1, 4).Value
xH(1, 5).Resize(1, 2) = Split(TT & "*1", "*")
Set xH = xH(2)
End If
Next
Loop
End Sub
注意：ａ欄必須是連續資料
|
|
發表於 2015-9-1 10:48
| 