
excel
vbnetSub AddDateToColumn()Dim ws As WorksheetDim i As LongSet ws = ActiveSheetApplication.ScreenUpdating = FalseFor i = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Rowws.Cells(i, 1) = DateNext iApplication.ScreenUpdating = TrueEnd Sub这个VBA代码会在一列单元格的前面自动添加日期。您可以在VBA编辑器中输入以上代码,并保存为一个名为"AddDateToColumn"的VBA模块。要运行这个VBA模块,在excel中按Alt+F11打开VBA编辑器。然后,在VBA编辑器中找到您保存的VBA模块并双击打开。接着,您会看到一个包含日期的单元格列。这个代码将停用屏幕更新功能以便在添加日期时不会显示任何滚动条或进度条。当所有单元格中的日期都添加完成后,代码将恢复屏幕更新。请注意,在这段代码中,日期是通过日期数组来定义的。因此,您可以根据需要自定义日期数组。希望这能够帮到您!如有其他问题,请随时提问。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号