宏1:Application.CutCopyMode = False
    ActiveCell.Formula = "=INDIRECT(" & """" & "R" & """" & "&(ROW()-1)&" & """" & "C" & """" & "&COLUMN(),FALSE)+1"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Selection.FillDown
    Selection.FillDown
    Selection.NumberFormatLocal = "yyyy" & """" & "年" & """" & "m" & """" & "月" & """" & "d" & """" & "日" & """" & ";@"
    Application.DisplayAlerts = False
    Application.DisplayAlerts = True

宏2:Selection.Offset(0, 1).Select '

宏3:Application.CutCopyMode = False
    ActiveCell.Formula = "=INDIRECT(" & """" & "R" & """" & "&(ROW()-1)&" & """" & "C" & """" & "&COLUMN(),FALSE)+1"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Selection.FillDown
    Selection.FillDown
    Selection.NumberFormatLocal = "yyyy" & """" & "年" & """" & "m" & """" & "月" & """" & "d" & """" & "日" & """" & ";@"
    Application.DisplayAlerts = False
    Application.DisplayAlerts = True

为什么这么多重复的 比如说filldown和displayalert

都没有with结构怎么可能缺少end with

回复：2楼

我只是写了几个公式让后录制了一下宏 这些代码都是从 查看宏代码里复制粘贴的

回复：3楼

我知道 看到你写的公式了 能不能上一下文件

回复：4楼

好的  

回复：5楼

如附件

回复：8楼我的意思是不是单独运行 是再创建一个宏 按顺序运行 日期 换行 时间 

回复：9楼

不合在一起怎么按顺序运行

回复：10楼

现在合在一起了 提示缺少endwith 详见附件