- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-26
|
¦^´_ 22# PJChen
Sub ¼t¯Ê¶×Á`_¶×¤J()
Dim Arr, R&, ¼t¯Ê¼Æ&, ¤J¼Æ&, N&
Call ¼t¯Ê¶×Á`_²M°£
Arr = Range([¸¤ñ!A1], [¸¤ñ!BI65536].End(xlUp))
For R = 4 To UBound(Arr)
¼t¯Ê¼Æ = Val(Arr(R, UBound(Arr, 2)))
¤J¼Æ = Val(Arr(R, 7))
If ¼t¯Ê¼Æ * ¤J¼Æ = 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) = ¤J¼Æ
Arr(N, 5) = ¼t¯Ê¼Æ Mod ¤J¼Æ
Arr(N, 6) = Int(¼t¯Ê¼Æ / ¤J¼Æ)
101: Next R
If N = 0 Then Exit Sub
With [¼t¯Ê¶×Á`!A3:F3].Resize(N)
.Rows(1).Copy .Cells
.Value = Arr
End With
End Sub
Sub ¼t¯Ê¶×Á`_²M°£()
With Sheets("¼t¯Ê¶×Á`")
.UsedRange.Offset(3, 0).EntireRow.Delete
.[A3:F3].ClearContents
End With
End Sub
============================ |
|