SAP 匯出將所有數字轉換為文本我需要將前導零的單元格作為文本，同時將其余數字文本轉換為數字。
Sub ConvertUsingLoop()
For Each r In Sheets("Loop&CSng").UsedRange.SpecialCells(xlCellTypeConstants)
If IsNumeric(r) Then
r.Value = CSng(r.Value)
r.NumberFormat = "General"
End If
Next
End Sub
我正在嘗試合并Left(Str, 1) = "0"以排除前導零的單元格。謝謝您的意見。
uj5u.com熱心網友回復：
也許只需將您的Left$支票添加到If：
If IsNumeric(r.Value) And Left$(r.Value, 1) <> "0" Then
uj5u.com熱心網友回復：
這是我達到的最終代碼：
Sub Text2Number()
On Error GoTo EH
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Set Rng = ActiveSheet.UsedRange
Rng.Cells(1, 1).Select
For i = 1 To Rng.Rows.Count
For j = 1 To Rng.Columns.Count
If Rng.Cells(i, j) <> "" Then
Union(Selection, Rng.Cells(i, j)).Select
End If
Next j
Next i
For Each c In Rng.Cells
If IsNumeric(c.Value) And Left$(c.Value, 1) <> "0" Then
c.NumberFormat = "General"
c.Value = c.Value
End If
Next
CleanUp:
On Error Resume Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Exit Sub
EH:
' Do error handling
Resume CleanUp
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/535471.html
標籤：擅长VBA
上一篇：讓VBA等到批處理檔案完成