优化代码，处理列数据

swjia8315

需求：

1、每列进行分列，保留原来格式（数字仍然是数字，百分数保留百分数）
2、对第一列日期数据的处理（文本格式+日期格式混合在第一列（如下图），全部转换为文本8位格式，例如20230126）
3、如上相同操作在一个excel工作簿上，有多个sheet，挨个执行一遍
4、因为数据列较多，尽可能提高处理速度

有一个初步基础代码，可在其基础上进行修改，附上附件。这个代码目前只能将第一列中日期格式的数据，处理成"2024/1/5 星期六"，需要优化
  

Sub test()
    With Sheets("Sheet1")
        arr = .UsedRange
        .Cells.Clear
        On Error Resume Next
        For i = 2 To UBound(arr)
            If arr(i, 1) <> Empty Then
                If Len(arr(i, 1)) = 8 Then
                    st = arr(i, 1)
                Else
                    s = CStr(arr(i, 1))
                    st = Format(s, "yyyy/mm/dd")
                End If
                arr(i, 1) = Format(st, "yyyymmdd")
            End If
        Next
        .[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    End With
    MsgBox "OK！"
End Sub

ykcbf1100

我早就说了，原代码可以用的。

你改宏名，也要改一下按钮那里的宏名啊，不会改就不要乱改宏名。

ykcbf1100

你看，你改了宏名，但这里还是暴露了原宏名。

A刘志勇

你已经很快了，略做调整