if target.col = 指定列 then
activer.= now
end if
否则其它的不进行更改
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i '一个变量存储当前行
i = Target.Row '取得当前行
if Target.col = 列 then '取得当前列,并判断是否是指定列 （这赶的列是一个数字,你可以按自己的需要更改成数字
ActiveSheet.Cells(i,15) = Now() '如果是指定列则更改当前行的某列的时间值
end if '结束,如果不是指定列,就退出
End Sub