怎样实现在excel中，A列输入内容，B列显示修改时间？

Question

使用NOW(),时间是一同变化的，不能单独在B1、B2......记录A1、A2。。。。的修改时间，请高人指点！

Answer 1

用宏吧，代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rn As Range
If Target.Column = 1 Then
For Each rn In Target
If rn.Value <> "" Then
Target.Offset(0, 1) = Now()
Else
Target.Offset(0, 1) = ""
End If
Next
End If
End Sub

复制到你工作表的VBA中
此代码比较完善，不会因为批量操作多个行列内容而出错

追问

感谢你的解答，我计算机很差，你把步骤在详细一下吗，点哪然后再点哪。。。。。

追答

按ALT+F11，然后双击你要操作的表格名称（左边），把代码粘贴在右边空白区域就可以了

Answer 2

这个情况纯用公式不好处理，可以使用VBA宏解决：

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
 If Application.Intersect(Range("A2:A100"), Target) Is Nothing Or Target.Count > 1 Or Target.Value = "" Then Exit Sub
  Range("B" & Target.Row) = Date
End Sub

 下面这个代码

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = True

 If Application.Intersect(Range("A2:A100"), Target) Is Nothing Or Target.Count > 1 Or  Target.Value = "" Then Exit Sub

  Range("B" & Target.Row) = Date

End Sub

Answer 3

Private Sub Worksheet_Change(ByVal Target As Range)
if target.count>1 then exit sub
if target.column=1 and target<>"" then target.offset(,1)=now
End Sub

Answer 4

需要VBA了。