EXCEL中怎么把月份换成其他月份，年份跟日不变?

2024-11-01 21:27:14

推荐回答（5个）

回答（1）：

公式为：

=TEXT(DATE(YEAR(A3),11,DAY(A3)),"m月d日")
如图所示：
最后把修改过的复制，粘贴值到原来的位置，删除公式列。

回答（2）：

上图作为参考。设A列为原始日期，在C列（或其它列）C1中填写=DATE(YEAR(A1),MONTH(A1)+1,DAY(A1))，把月份增加1个月，也可以把1改为其它数值，双击向下填充即可。

回答（3）：

可以使用代码进行批量操作。

该代码可将选取文件夹中的所有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

回答（4）：

如果是日期格式，可以直接查找替换
比如想将5月替换为12月
查找内容为 “-5-” 替换为“-12-” （以上都不包括引号）

回答（5）：

工作表的格式是一样的话，就选中所有工作表，进行更改