如何把日期格式的年份变成文本格式打开一张Excel表格,里面已经 爱

1、选中“2008-8-7”，“格式/单元格/数字/分类/日期”，在右侧框内选“2001年3月14日”，这是一种常用的方式，但仍为一种日期格式，对阅读、打印没有影响，但对于楼主提出的文本处理，有点麻烦。

2、=YEAR(B7)&"-"&MONTH(B7)&"-"&DAY(B7)，其结果是2008-8-7” 但是文本，可以用文本函数处理 3、=YEAR(B8)&"年"&MONTH(B8)&"月"&DAY(B8)&"日"。同上。

4、我猜想，楼主既然要用文本函数，不至于再去取“年月日”这三个字，而是具体的日期，那么，用我上面的函数，本身就已解决了： 年份=YEAR(B8)，月份=MONTH(B8)，日=DAY(B8)，也不用left\right\mid函数了。

word批量修改日期请问如何在word中将诸如7/20/2006

普通的替换恐难完成任务，给你写了一个宏，方便处理。

打开Word文档后，按“Alt+F11”进入VBE，在左侧工程管理器中，选中“Normal”，然后点上面的“插入”菜单下的“模块”，在右下侧的编辑窗口中输入如下代码： '=========代码复制开始============ Sub 替换日期（） Dim objRegExp As Object, matches As Object, match As Object, retStr$ Set objRegExp = CreateObject("VBScript。 RegExp") '建立正则表达式对象 With objRegExp 。

Pattern = "(\d{1,2})\/(\d{1,2})\/(\d{4})" '匹配日期字符串 。IgnoreCase = True 。

Global = True Set matches = 。 Execute(ActiveDocument。

Content) End With Application。ScreenUpdating = False With ActiveDocument。

Content。Find For Each match In matches '遍历Matches集合 。

ClearFormatting 。Replacement。

ClearFormatting 。Text = match。

Value 。Replacement。

Text = bmatches(2) & "年" & bmatches(0) & "月" & bmatches(1) & "日" 。 Forward = True 。

Wrap = wdFindContinue 。Execute Replace:=wdReplaceOne Next End With Application。

ScreenUpdating = True Set objRegExp = Nothing End Sub '=========代码复制结束============ 完成后关掉VBE窗口，回到Word文档，按下“Alt+F8”组合键，运行“替换日期”宏就可以了。

转载请注明出处51数据库 » word日期改成文本