Excel VBA：在单元格光标位置添加时间戳的实现问题

当单元格已有内容（示例：ABC 123 09.01.23）时，需要在光标所在位置插入日期时间戳：

• 光标在ABC后运行宏，结果应为：ABC 09.01.23 10:12:15 123 09.01.23
• 光标在单元格末尾运行宏，结果应为：ABC 123 09.01.23 09.01.23 10:12:15

但当前使用的timeStamp宏仅在单元格被选中但未激活光标（未进入编辑模式）时有效，一旦光标激活进入编辑模式，运行宏无任何反应。原宏代码如下：

Sub timeStamp()

Dim ts As Date

With Selection

.Value = Now
.NumberFormat = "m.d.yy h:mm:ss AM/PM"

End With

End Sub

原宏的问题在于直接覆盖单元格值，且未处理编辑模式下的光标位置。以下是修正后的宏代码，可在编辑模式下的光标位置插入时间戳，非编辑模式下默认追加到单元格内容末尾：

Sub InsertTimeStampAtCursor()
    Dim ts As String
    ' 格式化时间戳为指定格式
    ts = Format(Now, "m.d.yy h:mm:ss AM/PM")
    
    ' 判断是否处于单元格编辑模式
    If Application.EditMode Then
        Dim currentCell As Range
        Set currentCell = ActiveCell
        Dim cursorPos As Integer
        
        ' 获取当前光标位置
        cursorPos = currentCell.Characters(Start:=1, Length:=0).Start
        
        ' 在光标位置插入带前后空格的时间戳，避免和原有内容粘连
        currentCell.Value = Left(currentCell.Value, cursorPos - 1) & " " & ts & " " & Mid(currentCell.Value, cursorPos)
    Else
        ' 非编辑模式下，仅选中单个单元格时追加时间戳
        If Selection.Cells.Count = 1 Then
            Selection.Value = Selection.Value & " " & ts
        End If
    End If
End Sub

说明： #

• 编辑模式下：精准识别光标位置，插入符合格式要求的时间戳
• 非编辑模式下：仅针对单个选中单元格，在内容末尾追加时间戳
• 若需调整时间戳格式，修改Format(Now, "m.d.yy h:mm:ss AM/PM")中的格式字符串即可

内容的提问来源于stack exchange，提问作者Cap'n Crunch