- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-23
|
23#
發表於 2020-4-17 09:39
| 只看該作者
回復 22# PJChen
Sub 廠缺匯總_匯入()
Dim Arr, R&, 廠缺數&, 入數&, N&
Call 廠缺匯總_清除
Arr = Range([飛比!A1], [飛比!BI65536].End(xlUp))
For R = 4 To UBound(Arr)
廠缺數 = Val(Arr(R, UBound(Arr, 2)))
入數 = Val(Arr(R, 7))
If 廠缺數 * 入數 = 0 Then GoTo 101
N = N + 1
Arr(N, 1) = Arr(R, 6)
Arr(N, 2) = Arr(R, 5)
Arr(N, 3) = Arr(R, 8)
Arr(N, 4) = 入數
Arr(N, 5) = 廠缺數 Mod 入數
Arr(N, 6) = Int(廠缺數 / 入數)
101: Next R
If N = 0 Then Exit Sub
With [廠缺匯總!A3:F3].Resize(N)
.Rows(1).Copy .Cells
.Value = Arr
End With
End Sub
Sub 廠缺匯總_清除()
With Sheets("廠缺匯總")
.UsedRange.Offset(3, 0).EntireRow.Delete
.[A3:F3].ClearContents
End With
End Sub
============================ |
|
發表於 2020-3-1 19:35
| 
