VBA:在两列之间提取分钟和小时

Sub ExtractMinutesAndHours()
    Dim rng As Range
    Dim cell As Range
    Dim timeValue As Date
    Dim minutes As Integer
    Dim hours As Integer
    
    '设置要提取分钟和小时的数据范围
    Set rng = Range("A1:A10") '将范围修改为你需要的范围
    
    '循环遍历每个单元格并提取分钟和小时
    For Each cell In rng
        '将单元格的值转换为时间格式
        timeValue = TimeValue(cell.Value)
        
        '提取分钟和小时
        minutes = Minute(timeValue)
        hours = Hour(timeValue)
        
        '将提取的分钟和小时写入相邻的两列
        cell.Offset(0, 1).Value = minutes
        cell.Offset(0, 2).Value = hours
    Next cell
End Sub