VBA：替换部分时间字符串

Question

C 列有时间（格式为文本，工作表将导出为 csv），格式为 HH:mm:ss。

C1、C2、C3 值分别为时间 09:15:00、09:16:00、09:17:00 到 15:29:00

只需要用“:59”替换最后的“:00”部分

---捕捉--- 在 C 列中将有诸如 10:00:00 或 11:00:00 或 12:00:00 之类的值

这意味着直接将“:00”替换为“:59”会破坏精确的 10'o clock 、11'o clock 等的值。

C 列将填充数千个这样的数据点。我猜我下面的逻辑不起作用：

{

Dim secrep As String
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Secsz = Range("C1:C" & LastRow).Select
seczero = Right(Secsz, 2)
secrep = Replace(Secsz, ":00", ":59")

}

我知道上面的代码是错误的，但这就是我能想到的。

请求帮助完成这个逻辑..

编辑： 解释的不是很详细。 即使是这些完整的小时值也需要替换，例如：10:00:59、11:00:59、12:00:59

Answer 1

如果值不以00:00 结尾，则将其更新为:59

Dim cell As Range

For Each cell In Range("C1", Range("C1").End(xlDown))
    If Right$(cell.Value, 5) <> "00:00" Then
        cell.Value = Left$(cell.Value, 6) & "59"
    End If
Next

编辑，仅替换 last 00:

Dim cell As Range

For Each cell In Range("C1", Range("C1").End(xlDown))
    cell.Value = Left$(cell.Value, 6) & "59"
Next

Answer 2

你在正确的轨道上。您只需要先拆分字符串，在后半部分替换，然后再连接。这是一个通用功能，您可能想通过一些错误处理来增强它：

Function ReplaceEnd(s As String, endCount As Integer, replaceWhat As String, replaceWith As String)
    Dim baseString As String
    Dim replaceString As String

    baseString = Left(s, Len(s) - endCount)
    replaceString = Right(s, endCount)

    ReplaceEnd = baseString & Replace(replaceString, replaceWhat, replaceWith)
End Function

编辑：示例用法：

secrep = ReplaceEnd(Secsz, 3, ":00", ":59")

Answer 3

你可以用这个：

Public Function AlterTime(rInputRange As Range)

    Dim oCell   As Range

    For Each oCell In rInputRange.Cells
        oCell = TimeSerial(Hour(oCell), Minute(oCell), 59)
    Next oCell

End Function

Answer 4

使用拆分功能，然后分析修改。

Private Sub CommandButton1_Click()
    Dim ws            As Excel.Worksheet
    Dim lastRow       As Long
    Dim szTimeParts() As String
    Dim lRow          As Long

    lRow = 1
    lastRow = ws.Cells(ws.Rows.count, "C").End(xlUp).Row

    Set ws = ActiveWorkbook.Sheets("Sheet1")
    ws.Activate

    'Loop through the rows
    Do While lRow <= lastRow

        'Make sure we have a value to read into our string
        If ws.Range("C" & lRow).Value <> "" Then
            szTimeParts = Split(Trim(ws.Range("C" & lRow).Value), ":")
            If szTimeParts(1) <> "00" Then
                ws.Range("C" & lRow).Value = szTimeParts(0) & ":" & szTimeParts(1) & ":59"
            End If
        End If
        lRow = lRow + 1
    Loop

End Sub