2018/11/16转化为20181116

ljxy925

各位大师,又来请教了
原始的

Cu1911	2018/11/16	2019/11/15
Zn1911	2018/11/16	2019/11/15
AL1911	2018/11/16	2019/11/15
Pb1911	2018/11/16	2019/11/15
Au1912	2018/11/16	2019/12/16
Ru1911	2018/11/16	2019/11/15
Rb1911	2018/11/16	2019/11/15

需要转化成的

Cu1911	20181116	20191115
Zn1911	20181116	20191115
AL1911	20181116	20191115
Pb1911	20181116	20191115
Au1912	20181116	20191216
Ru1911	20181116	20191115
Rb1911	20181116	20191115

jiangxiaoyun

查找--替换

yaozong

Sub 自定义日期格式() ''可参与日期运算
    Columns("B:C").NumberFormatLocal = "yyyymmdd"
End Sub

ljxy925

jiangxiaoyun 发表于 2018-11-7 17:19
查找--替换

不对的,日期格式

jiangxiaoyun

ljxy925 发表于 2018-11-7 17:34
不对的,日期格式

替换之后，换一换格式就可以了，换为常规。。。。。。。。。。。。。。。。。。
就不能多思考一下

MOY838840554

用公式就可以了

lsc900707

1. Sub gj23w98()
   
2.     arr = [a1].CurrentRegion
   
3.     For i = 1 To UBound(arr)
   
4.         For j = 2 To UBound(arr, 2)
   
5.             arr(i, j) = Replace(arr(i, j), "/", "")
   
6.         Next
   
7.     Next
   
8.     [b:c].NumberFormatLocal = "G/通用格式"
   
9.     [a1].CurrentRegion = arr
   
10. End Sub

复制代码

ljxy925

lsc900707 发表于 2018-11-7 17:46

太厉害了
谢谢大师
我要学习数组

ljxy925

MOY838840554 发表于 2018-11-7 17:46
用公式就可以了

谢谢大师
用公式可以的

ljxy925

jiangxiaoyun 发表于 2018-11-7 17:45
替换之后，换一换格式就可以了，换为常规。。。。。。。。。。。。。。。。。。
就不能多思考一下

谢谢大师
手工能解决
想通过代码解决
一系列操作中的一步