清理/删除硬空格和科学“E+”符号并另存为 Unicode 文本文件

Question

我编辑 Excel 文件中的数据以清理它们，并将工作表另存为 Unicode 文本文件。

必须做的是使用 clean 函数（最好在所有列上）删除硬间距和任何导致换行的内容以及科学的“E+”符号，而不影响列中的数据（范围可能从日期到值和描述） .

这会冻结大型 Excel 文件，而且我认为也只清理和保存部分，所以它并不总是 100% 干净。

Sub CleanAndSaveEachSheetAsUnicodeText()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    Dim lastCol As Long
    Dim originalPath As String
    Dim fileName As String
    Dim data As Variant
    Dim i As Long, j As Long
    
    ' Disable screen updating and automatic calculation
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    ' Loop through each worksheet in the workbook
    For Each ws In ThisWorkbook.Sheets
        ' Find the last row and last column with data in the worksheet
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
        
        ' Load data into an array
        data = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)).Value
        
        ' Loop through the array to apply the CLEAN function
        For i = 1 To UBound(data, 1)
            For j = 1 To UBound(data, 2)
                data(i, j) = Application.Clean(data(i, j))
            Next j
        Next i
        
        ' Write cleaned data back to the worksheet
        ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)).Value = data
        
        ' Get the original file path and name
        originalPath = ThisWorkbook.FullName
        
        ' Extract the sheet name
        fileName = ws.Name
        
        ' Save the worksheet as Unicode text in the same folder as the original file
        Dim filePath As String
        filePath = Application.GetSaveAsFilename(InitialFileName:=fileName, FileFilter:="Unicode Text (*.txt), *.txt", Title:="Save As")
        
        If filePath <> "False" Then
            ' Save as Unicode text
            ws.SaveAs Filename:=filePath, FileFormat:=xlUnicodeText
        End If
    Next ws
    
    ' Enable screen updating and automatic calculation
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

Answer 1

无需循环单个单元格即可应用

CLEAN

功能。同样，您可以将硬空间

chr(160)

转换为普通空间。
假设带有科学记数法的单元格没有专门格式化 (

.Numberformat = "General"

)，删除此符号应该足以应用列自动调整。
具有建议改进的代码片段：

 ' Get the original file path and name
originalPath = ThisWorkbook.FullName

' Loop through each worksheet in the workbook
For Each ws In ThisWorkbook.Sheets

' Load data into an array
data = ws.UsedRange.Value

' apply the CLEAN function
 data = Application.Clean(data)

'  apply SUBSTITUTE to change chr(160) to chr(32)
 data = Application.Substitute(data, Chr(160), " ")

' Write cleaned data back to the worksheet
  ws.UsedRange.Value = data

' Columns AutoFit
  ws.Columns.AutoFit