VBA实例1

Alpha

该实例用于在活动工作表的每个单元格中插入当前日期


Sub InsertDate()

Dim cell As Range

For Each cell In ActiveSheet.UsedRange
    cell.Value = Date
Next cell

End Sub

荆银平

感谢分享