作者：乔山办公网日期：
返回目录：excel表格制作
假设日期在单元格A1，可以用一下公式：
=EDATE(A1,1)
任意单元格输入公式
=DATE(2013,MOD(ROW(A12)+1,12),1)
下拉复制公式
这样试一下是不是你要的
看到你的评论copy"我不要月份递增啊，我是要把月份全部百改成同一个月，而年和日不变啊"
你是要改某列的日期有同一个月的日期是吗度?
假设该列是A列,日期从A2单元格开始
B2单元格输入公知式
=DATE(YEAR(A2),此处写入你要改的月份值,DAY(A2))
如全改成1月的
=DATE(YEAR(A2),1,DAY(A2))
设置单元格格式为你要的日期格式的一种,
再下拉复制公式
完成后---复制B列----右键----选择性粘贴----数值----确定道----删去原A列
1、在电脑上打开excel文件，点击选择需要修改的单元格。
2、之后，在表格上右zhidao键打开菜单，找到设置单元格格式选项，并点击进入。
3、在跳转的界面中，点击右侧的自定义回，然后在类型中输入“yyyy-mm”代码，并点击确答定选项。
4、之后即可成功将日期的格式设置为年月了。
可以使用代码进行批量操作。
该代e68a84e799bee5baa6e79fa5e98193332码可将选取文件夹中的所有excel文件进行日期的操作。
默认数据在sheet1的A列中，默认月份加1.
当然这种月份简单加一的方式在某些情况下是会出现错误的。
Sub update_month()
On Error Resume Next
Application.DisplayAlerts = False
Dim myDoc As String
Dim mySheet As String
Dim mynewSheet As Workbook
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.Title = "?????Excel?????????"
.AllowMultiSelect = False
myDoc = .SelectedItems(1)
End With
mySheet = Dir(myDoc & "\" & "*.xls*")
Do While mySheet <> ""
Set mynewSheet = Workbooks.Open(myDoc & "\" & mySheet)
With mynewSheet.Worksheets(1)
For i = 2 To .Range("A2").End(xlDown).Row
mynewSheet.Worksheets(1).Cells(i, 1) = Year(Date) & "-" & Month(Cells(i, 1)) + 1 & "-" & Day(Cells(i, 1))
Next
mynewSheet.Save
mynewSheet.Close
mySheet = Dir
Loop
Application.DisplayAlerts = True
End Sub