B欄位對應A欄位數量以270為單位
請問要如何修改，一值無法算得B欄數量- Sub to2test()
- Dim e&, st$, sb$
- st = Cells(1, 4)
- sb = Cells(1, 5)
- e = [a65536].End(3).Row - 1: If e < 1 Then Exit Sub
- For i = 3 To e
- If Cells(i, 1) = "" Then
- Cells(i, 2) = ""
-
- On Error Resume Next
-
- ElseIf Cells(i, 1) < st Then
- Cells(i, 2) = -Int(-Cells(i, 1) / st)
- ElseIf Cells(i, 1) + Cells(i - 2, 1) + Cells(i - 1, 1) > sb Then
- Cells(i, 2) = -Int(-Cells(i, 1) / st) - 1
- ElseIf Cells(i, 1) + Cells(i - 2, 1) + Cells(i - 1, 1) = sb Then
- Cells(i, 2) = -Int(-Cells(i, 1) / st) - 1
- ElseIf Cells(i, 1) + Cells(i - 2, 1) = sb Then
- Cells(i, 2) = -Int(-Cells(i, 1) / st) - 1
- Else
-
-
- End If
- Next
- Cells(4, 5) = -Int(-Cells(4, 4) / st)
- End Sub
|
發表於 2021-12-29 22:04
| 
