请问如何用数组的方式，快速调整这一列

swjia8315

这一列全部是日期数据，需要转化为8位数格式：20240613


因为数据较多，希望做成个vba工具，用数组形式来快速操作这一列
请问该怎么写？表格附上

Qs18

在原列上改还是新生成一列

tanglf188

ykcbf1100

直接查找替换就可以了，把“-”替换为空就行

ykcbf1100

其实可以用一行代码

1. Sub ykcbf()  '//2024.6.13
   
2.     col = 1
   
3.     Columns(col).Select
   
4.     Selection.Replace what:="-", Replacement:="", LookAt:=xlPart
   
5. End Sub
   

复制代码

tanglf188

请参考。。。。。

Qs18

Sub test()
Dim arr: arr = Sheet1.Range("a1").CurrentRegion.Value
Dim i As Long
For i = 2 To UBound(arr)
    arr(i, 1) = Format(CDate(arr(i, 1)), "yyyymmdd")
Next
Sheet1.Range("a1").Resize(UBound(arr), 1) = arr
MsgBox "转换完成！"
End Sub

Qs18

试一下......

Qs18

试一下........

蓝桥玄霜

格式的例子：