- ©«¤l
- 140
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 167
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- OFFICE 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-2-26
- ³Ì«áµn¿ý
- 2023-1-30
|
³oÓ¤£¦æ- Sub Ex()
- Dim D As Variant, E As Range, b As Date
-
- Windows("A.xls").Activate
- Sheets("Sheet1").Select
-
- With ActiveWorkbook.Sheets(1)
-
-
- For Each E In Range("b1", [b1].End(xlDown))
-
- D = Split(E.Offset(, -1), "/")
-
- b = E + #12:01:00 AM#
-
- E.Value = E + #12:01:00 AM#
-
- E.Offset(, 6) = D(0) & D(1) & Application.Text(b, "hhmm")
-
- Next
-
-
- End With
-
- End Sub
½Æ»s¥N½X
B.rar (11.78 KB)
|
|