每在TXT文本输入内容时，如何自动在该行前加入当前时间？

Question

如题所述

Answer 1

　　先录制宏，快捷键指定为ctrl+shift+r，停止录制宏，然后打开VBA编辑器，把刚才录制的内容删除，输入以下内容。
　　Dim IRow As Long, i As Long
For i = 1 To 4
IRow = ActiveCell.Row
Rows(IRow + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("a" & IRow + 2).Activate
Next i
　　最后输入你想要设置的时间保存就可以了 。