現(xiàn)在網(wǎng)上有很多多人協(xié)作平臺(tái)仿野，多人同時(shí)編輯電子表格文檔匆背，在輸入日期時(shí)鸣奔，可能在同一列如A列中出現(xiàn)各種各樣的格式典尾，如：
20231104
2023.11.04
2023.11.4
23.11.4
23.11.04
23.10.4
23.11-4
23'11.4
23.11.10.
2023/11/4
2023/11/04
23.11-4
2023-11.4
1.20.
...
可以將相關(guān)日期列復(fù)制到excel新表的A列并選中役拴，按Alt+F11，添加如下新模塊：
Sub 修改日期格式()
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
' 將.替換為-
Columns("A:A").Select
Selection.Replace What:=".", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'如單元格最后一個(gè)字符為連字符钾埂，刪除
Columns("A:A").Select
For Each cell In Rng
If Right(cell.Value, 1) = "-" Then
cell.Value = Left(cell.Value, Len(cell.Value) - 1)
End If
Next cell
Rng.NumberFormat = "yyyy-mm-dd"
Rng.ColumnWidth = 11.5
'將要替換的內(nèi)容復(fù)制到新表格中的A列河闰，并選中A列再執(zhí)行。將A1替代為活動(dòng)單元格第一個(gè)名稱
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 5), TrailingMinusNumbers:=True
Windows("Excel加載宏.xlsm").Activate
Application.DisplayAlerts = False '不保存退出活動(dòng)Excel
ActiveWindow.Close
End Sub
在宏列表褥紫，或在自定義功能區(qū)添加相應(yīng)的宏姜性，即可一鍵搞定。
最后將調(diào)整好的A列復(fù)制到原有表格覆蓋原數(shù)據(jù)即可髓考。
