- 帖子
- 132
- 主題
- 35
- 精華
- 0
- 積分
- 179
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2014-12-24
- 最後登錄
- 2024-3-13
|
回復 4# 准提部林
請問准提部林 大哥
目前測試下來
有一小問題想試問
如圖所示
[attach]29559[/attach]
當儲存格內容沒有"~"時程式會發生錯誤，下圖
想請問如果我要修改，是否用IF去判別就好
還是有其他方式
因為箱號旁要加上料號，所以小弟用了大大的程式修改了內容
還請參考附件~謝謝- Sub TEST1()
- Dim Arr(1 To 20000, 0), Arr1(1 To 20000, 0), A, B, C, D, i&, N&, T$, TR
- W = 1
- For Each A In Range([I2], [I65536].End(xlUp))
- W = W + 1
- For Each B In Split(A, Chr(10))
-
- T = Left(B, 8): TR = Split(Mid(B, 9), "~")
- D = Cells(W, 3)
- For i = Mid(TR(0), 2) To Mid(TR(1), 2)
- N = N + 1: Arr(N, 0) = T & Left(TR(0), 1) & i
- N = N + 0: Arr1(N, 0) = D
- Next
- Next: Next
- [K3].Resize(N) = Arr
- [J3].Resize(N) = Arr1
- End Sub
 test.zip (15.98 KB)
|
|
發表於 2018-10-17 20:55
| 
