- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
回復 23# 准提部林
准大,
我修改了這個程式,想讓
HD欄>0,則填入,最後效期sheet的J欄
HE欄>0,則填入,最後效期sheet的K欄
目前只try了HE欄,但無法填入,可以幫我看看嗎?
最新庫存.rar (82.58 KB)
- Sub 最後效期()
- Dim Arr, Brr, R&, 統&, N&, BK As Workbook
- Set BK = Workbooks("最新庫存.xlsx")
- BK.Sheets("最後效期").Activate
- Arr = Range([飛比!A1], [飛比!HE65536].End(xlUp))
- For R = 4 To UBound(Arr)
- 統 = Val(Arr(R, UBound(Arr, 2)))
- If 統 = 0 Then GoTo 101
- N = N + 1
- Arr(N, 11) = Arr(R, 5) '料號
- 101: Next R
- If N = 0 Then Exit Sub
- With [最後效期!A4:H4].Resize(N)
- .Rows(1).Copy .Cells
- End With
- With [最後效期!L4:AB4].Resize(N)
- .Rows(1).Copy .Cells
- End With
- End Sub
複製代碼 |
|