- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2025-3-24
|
在數組中執行應能快點.
Sub zz()
a = Sheets("庫存").[a1].CurrentRegion
b = Sheets("查").[a1].CurrentRegion
For ax = 2 To UBound(b) 'lastrow_b '查工作表的品號列數
For ay = 3 To 12 Step 3 '核取方塊欄
For ao = 2 To UBound(a) 'lastrow_a '庫存資料庫
If b(ax, ay) = True And b(ax, 1) = a(ao, 1) And b(ax, ay + 1) = a(ao, 2) Then
a(ao, 4) = b(ax, 2)
End If
Next
Next
Next
Sheets("庫存").[a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub |
|
發表於 2015-8-12 22:16
| 