excel表格中日期格式全部转换成yyyymm格式

2024-10-29 05:25:16

推荐回答（5个）

回答（1）：

1、选中需要修改格式的单元格。

2、数字项的分类中日期。

3、选择yyyymm

确定，选中单元格的日期都城会改变了。

回答（2）：

单位格式里改不了的情况，应该是excel的一个小Bug，曾经令我头痛很久。我最后找出的解决方法是这样的：
假设你的日期在A列。在B1输入"=a1+1-1"，然后自动填充B列。然后将B列的格式调好，然后复制并条件粘贴值到B列本身，然后将B列复制粘贴到A列。

回答（3）：

查找：.
替换为：-
全部替换。
设置单元格格式，自定义：yyyymm

回答（4）：

假设日期从A列第一行开始
Sub changedate()
Dim mystr As String
For i = 1 To Range("a65535").End(xlUp).Row
mystr = ""
n = 0
For j = 1 To Len(Cells(i, 1))
x = Mid(Cells(i, 1), j, 1)
If x Like "[0-9]" Then
mystr = mystr & x
Else
If n = 0 Then
mystr = mystr & "-"
n = 1
Else
Exit For
End If
End If
Next j
If InStr(mystr, "-") > 0 Then
rstr = Right(mystr, Len(mystr) - InStr(mystr, "-"))
If Len(rstr) = 1 Then
rstr = "0" & rstr
End If
If Len(Left(mystr, InStr(mystr, "-") - 1)) = 4 Then
Cells(i, 1) = Val(Left(mystr, InStr(mystr, "-") - 1)) & rstr
Else
Cells(i, 1) = 2000 + Val(Left(mystr, InStr(mystr, "-") - 1)) & rstr
End If
Else
Cells(i, 1) = mystr
End If
Next i
End Sub

回答（5）：

YYYYMM要怎么填写隔式