各位老师好！请问怎么通过VBA做到修改文字对齐，单元格格式并分列

梦浅灯深

每天要重复这个步骤很多次，所以想请教下能否将这个步骤固化，通过执行一次宏就可以实现，谢谢

蓝桥玄霜

格式的例子：

梦浅灯深

蓝桥玄霜 发表于 2020-3-3 13:05
格式的例子：

谢谢版主！！

1. Sub lqsx()
   
2. Dim Arr, i&, rng As Range
   
3. Sheet1.Activate
   
4. Set rng = [a1].CurrentRegion
   
5. rng.HorizontalAlignment = xlLeft
   
6. Columns("D:D").NumberFormatLocal = "0.00"
   
7. Arr = [a1].CurrentRegion
   
8. For i = 2 To UBound(Arr)
   
9.     If Arr(i, 1) <> "" Then Cells(i, 1) = DateSerial(Left(Arr(i, 1), 4), Mid(Arr(i, 1), 5, 2), Right(Arr(i, 1), 2))
   
10. Next
    
11. End Sub
    

复制代码