截取column B上的time hour 的值。VBA

dogfire4169

小白又来请教了！！要如何把COLUMN B上所又的time value 如 13：45 截取 hour的值 13，replace 原来COLUMN B的13：45。


用函数很容易，但是资料一直增加，还是VBA 批量来处理比较好，因为其他的气象资料的VBA 都写好了，不能加column了，这样要改很多！！

小白也是先爬文，但是还是写不了！！！请各位大大帮忙一下。 THANK YOU

shiruiqiang

直接format(单元格，“hh”)就行

今日123

试试看是不是你要的效果Sub 拆分()
Dim arr, i, brr
With Sheet1
    arr = .[a1].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 2 To UBound(arr)
      
            r = r + 1
            brr(r, 1) = Val(Hour(arr(i, 2)))
        
    Next i
    .[d2].Resize(UBound(brr), 1) = brr
     '是的话，d2改成 b2 就好了
End With

End Sub

dogfire4169

今日123 发表于 2023-2-27 23:58
试试看是不是你要的效果Sub 拆分()
Dim arr, i, brr
With Sheet1

多谢大大，我没想到又Val(Hour（））这个函数，可以用了

dogfire4169

在 End with 后加上这一段就perfect了！ thanks a lot.
Sheet1.Columns("B:B").NumberFormat = "@"

今日123

dogfire4169 发表于 2023-2-28 01:39
在 End with 后加上这一段就perfect了！ thanks a lot.
Sheet1.Columns("B:B").NumberFormat = "@"

brr(r, 1) = "'"&Val(Hour(arr(i, 2)))
这样就可以改成文本格式