Я сталкиваюсь с ошибкой переполнения при запуске приведенного ниже кода на одном из моих листов. Кажется, что он отлично работает, как и все остальные, и хотя он немного больше (заканчивается в V1206), я не ожидал, что он вернет ошибку 6, переполнение.
Если я опустошу ячейку J46, она переполнится в J45. Если я тогда опустошу J45, он снова обрывается на F48. Я, очевидно, что-то упускаю, но так как это переполняется только простыми именами или датами, я не совсем уверен, что это что-то в ячейке или в моем коде, так как я относительно неопытен в среде VBA Excel.
Sub NoSpaceversion2b()
Dim Range, Cell As Range
Dim strSheet As String: strSheet = ActiveSheet.Name
'This stops at cell I47 (value M)
'Set Range = ActiveSheet.UsedRange
'This will get it all the way to cell J46 (value 12/3/1967)
Set Range = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
For Each Cell In Range
Cell.Value = Application.WorksheetFunction.Trim(Cell)
Debug.Print "Cell " & Cell.Address & " ; " & Cell.Value; " trimmed"
Next Cell
MsgBox "All Leading/Trailing spaces removed on worksheet '" & strSheet & "'.", vbOKOnly, "Operation Complete"
End Sub