- ©«¤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
|
¦^´_ 9# baa168 - Sub AA()
- Sheets("Sheet2").Columns("A:B") = ""
- Sheets("Sheet2").[A3] = "¤é´Á": Sheets("Sheet2").[B3] = "¤º®e"
- T = 4
- With Sheets("Sheet1")
- For R = 4 To .Range("A65536").End(xlUp).Row
- If (Month(.Cells(R, "A")) <> Month(.Cells(R + 1, "A"))) Or (R = .Range("A65536").End(xlUp).Row) Then
- Sheets("Sheet2").Cells(T, "A") = Right(.Cells(R, "A"), Len(.Cells(R, "A")) - 5)
- Sheets("Sheet2").Cells(T, "A").NumberFormatLocal = "m/d;@"
- Sheets("Sheet2").Cells(T, "B") = .Cells(R, "B")
- T = T + 1
- End If
- Next R
- End With
- End Sub
½Æ»s¥N½X |
|