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

发布网友

我来回答

共7个回答

懂视网

excel中日期格式怎么全部转换另一种格式？

产品名称：联想电脑

产品型号：联想 天逸510 Pro

系统版本：Windows 10

软件版本：wps office 11.1.0

1.选中要转换的日期。

2.鼠标右击并点击“设置单元格格式”。

3.选择自定义并选择一种格式。

4.最后点击确定即可。

总结

1.选中要转换的日期。

2.点击“设置单元格格式”。

3.选择自定义并选择一种格式。

4.最后点击确定。

热心网友

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

热心网友

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

热心网友

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

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

3、选择yyyymm

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

热心网友

假设日期从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

热心网友

YYYYMM要怎么填写隔式

热心网友

gfdgfd