
excel
VBASub 自动插入单号()Dim ws As WorksheetSet ws = ActiveSheetws.Cells(i, 1) = ActiveSheet.Cells(i, 1).Value & Today()End Sub将代码保存并退出VBA编辑环境。现在,在需要自动插入单号的位置输入该宏的名称,并按Ctrl+Shift+F9组合键执行宏。这个宏会将当前行的日期与当前行的单号合并为一个日期,并在该行下方插入新的空单元格。请注意,这里假设你已经在excel中使用了日期格式,并且正确输入了正确格式的单号。如果需要修改日期格式或其他设置,请根据具体情况进行调整。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号