- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 3# owen9399 - Sub ¿é¤J()
- If [D2] >= 5000 Then
- With Sheets("Sheet2")
- LR2 = .[A65536].End(xlUp).Row + 1
- Sheets("Sheet1").[A2:F2].Copy .Cells(LR2, "A")
- .Cells(LR2, "E") = .Cells(LR2, "C")
- End With
- Else
- With Sheets("Sheet3")
- LR3 = .[A65536].End(xlUp).Row + 1
- Sheets("Sheet1").[A2:F2].Copy .Cells(LR3, "A")
- .Cells(LR3, "E") = 0
- End With
- End If
- Sheets("Sheet1").[A2:F2] = ""
- End Sub
½Æ»s¥N½X |
|