VBA 将日期和时间列改为 24 小时 (Excel)
VBA Turn Column with Date and Time to 24hrs (Excel)
我有一个包含许多行的日期和时间列，如下所示：
2019 年 11 月 11 日 3:54PM
2019 年 11 月 11 日 5:33AM
我基本上不考虑日期，只是将时间更改为 24 小时并删除上午或下午并在末尾添加 G。像这样：
2019 年 11 月 11 日 15:54G
2019 年 11 月 11 日 05:33G
有没有一种简单的方法可以做到这一点，或者我是否必须将日期和时间拆分为 2 列，进行转换然后连接。
谢谢。
我尝试通过单元格格式化来做到这一点
Sub Converter()
Dim Focus As String
With ActiveSheet
Range("A3:A100").Select
Do
Focus = Format$(ActiveCell, "dd/mm/yyyy hh:mm")
ActiveCell.Value = Focus
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, 0))
End With
End Sub
我想在 vb
中实现
关闭：Format(Now(), "dd/mm/yyyy h:mm") & "G"
您可以在格式中使用 h:mmG，但对于将来寻找的其他人来说不太清楚。
我有一个包含许多行的日期和时间列，如下所示：
2019 年 11 月 11 日 3:54PM
2019 年 11 月 11 日 5:33AM
我基本上不考虑日期，只是将时间更改为 24 小时并删除上午或下午并在末尾添加 G。像这样：
2019 年 11 月 11 日 15:54G
2019 年 11 月 11 日 05:33G
有没有一种简单的方法可以做到这一点，或者我是否必须将日期和时间拆分为 2 列，进行转换然后连接。
谢谢。
我尝试通过单元格格式化来做到这一点
Sub Converter()
Dim Focus As String
With ActiveSheet
Range("A3:A100").Select
Do
Focus = Format$(ActiveCell, "dd/mm/yyyy hh:mm")
ActiveCell.Value = Focus
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, 0))
End With
End Sub
我想在 vb
中实现关闭：Format(Now(), "dd/mm/yyyy h:mm") & "G"
您可以在格式中使用 h:mmG，但对于将来寻找的其他人来说不太清楚。