excel 把日期提取出来，并删除

显示全部楼层 · 2013-6-21 11:44:57

'VB CODEprivate sub splitDate()
Dim i, j, strSize, year, month, day as long
i = 1
j = 0
do while ActiveWorkSheet.Cells(i, 1)""
set dateNum = Trim(Mid(ActiveWorkSheet.Cells(i, 1), (strSize-6), strSize))
year = Val(Mid(dateNum, 0, 2))
month = Val(Mid(dateNum, 2, 2)) ...

千问 · 2013-6-21 11:44:57

讲内容复制粘贴到word，然后查找替换，在查找里面输入[!0-9.]，替换保持为空格，勾选通配符，全部替换，就只剩下数字了，复制贴回excelB列得到数据，然后C列作为辅助列=left(A1,len(A1)-Len(B1))把汉字提取出来，复制选择性粘贴为值就行，调整一下格式就OK...

千问 · 2013-6-21 11:44:57

标准答案：把A列的130520删除要是直接删的话是办不到的哈在E1处输入=RIGHT(A1,6)
D1=SUBSTITUTE(A1,E1,)
然后把DE选择性粘贴数值到BC 清除内容删除A列搞定
望采纳！...

千问 · 2013-6-21 11:44:57

固定列宽分列就可以了。...