- 帖子
- 354
- 主題
- 5
- 精華
- 0
- 積分
- 387
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- vba,vb,excel2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-1-8
- 最後登錄
- 2024-8-2
 
|
本帖最後由 singo1232001 於 2021-8-3 18:17 編輯
回復 22# ML089
如果是指我的這份檔案的話 "3維陣列工單查詢 v4 v1"
執行後的結果有異常 有漏缺資料
是我的vba裡面有bug
Sub tttt()
t = Timer
Dim L As Worksheet
Dim R As Worksheet
Dim S As Worksheet
Dim i%, j%, w%, rw%, a%
Dim x As String
Dim TX As String
Set L = Sheets("L")
Set R = Sheets("R")
Set S = Sheets("OP")
f = S.Columns("A").Find("*", , -4163, , 1, 2).Row
f0 = L.Columns("A").Find("*", , -4163, , 1, 2).Row
f1 = R.Columns("A").Find("*", , -4163, , 1, 2).Row
ss = S.Range("A2").Resize(f, 1)
SL = L.Range("A2").Resize(f0, 12)
SR = R.Range("B2").Resize(f1, 12)
...
紅色的地方我打錯了 應該是R
狀況是 會有許多資料沒抓到
昨天晚上才發現的
附上修改好的檔案 |
|
發表於 2021-7-30 04:04
| 
