VBA 讀原始檔時，將文字轉變數


Sub DateChange()

        ' 將所有「文字格式」轉為「原始值」，即消去「'」文字符
                Range("a1").CurrentRegion.Select
                        For Each a In Selection
                              a.Value = Replace(a.Value, "'", "")
                        Next

                       Columns("F:F").Select
                               Selection.NumberFormatLocal = "yyyy/m/d;@"
                     Columns("N:O").Select
                              Selection.NumberFormatLocal = "yyyy/m/d h:mm;@"
               Range("A3").Select

End Sub