VBA如何一键将时间后面的秒去掉？

你得小可爱

求论坛大佬帮忙？在原数据上修改B列和C列时间后面都有秒，例如：2019-08-02 08:23:01  ，我想去掉秒得到：2019-08-02 08:23；方便后面我相减用。

liulang0808

Sub test()
    arr = [a1].CurrentRegion '
    For j = 2 To UBound(arr)
        arr(j, 2) = Format(arr(j, 2), "yyyy-mm-dd hh:mm")
    Next j
    [a1].CurrentRegion = arr
End Sub

你得小可爱

liulang0808 发表于 2019-8-3 17:14
Sub test()
    arr = [a1].CurrentRegion '
    For j = 2 To UBound(arr)

大佬，试用了下，开始时间的秒实际已都变成00，可以用；但是结束时间的秒仍然实际存在，只是表面上看没有秒，求解决，大佬!

liulang0808

你得小可爱 发表于 2019-8-3 17:25
大佬，试用了下，开始时间的秒实际已都变成00，可以用；但是结束时间的秒仍然实际存在，只是表面上看没有 ...

代码仅仅处理了B列的，c列也雷同处理方式，楼主可以自己尝试下的

ggmmlol

=--REPLACE(B2,17,3,)

你得小可爱

liulang0808 发表于 2019-8-3 17:26
代码仅仅处理了B列的，c列也雷同处理方式，楼主可以自己尝试下的

谢谢大佬指点，已可以啦。

lsc900707

相减也不一定先去掉秒的。

1. Sub gj23w98()
   
2.     arr = [a1].CurrentRegion '
   
3.     For i = 2 To UBound(arr)
   
4.         For j = 2 To UBound(arr, 2)
   
5.             arr(i, j) = Format(arr(i, j), "yyyy-mm-dd hh:mm")
   
6.         Next
   
7.     Next
   
8.     [a1].CurrentRegion = arr
   
9. End Sub

复制代码