我已经在许多Excel工作簿上使用了VBA，没有出现问题。在特定的工作簿上，我遇到运行时错误'13'：到达Cell = Trim(Cell)零件时，立即键入不匹配错误。是什么原因造成的？我查看了这些数据，但是找不到与众不同的东西。
Sub TrimHS()
Application.Cursor = xlWait
Application.ScreenUpdating = False
Dim LastRow As Integer
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("A83:G" & LastRow).Select
Dim rng As Range, Cell As Range
Set rng = Selection
For Each Cell In rng
Cell = Trim(Cell)
Next Cell
Application.Cursor = xlDefault
End Sub
您在特定的工作簿上有一个错误，因此，如果您要修剪它，则会Trim()给出Give错误13。修剪之前，请确保没有错误：
For Each Cell In rng
If Not IsError(Cell) Then
Cell = Trim(Cell)
End If
Next Cell
要查看代码出了什么问题，请debug.print Cell在该Trim行之前编写。它将开始在控制台上进行大量打印，最后一行应如下所示：Error 2007或类似。
这将在MsgBox及其工作表中显示带有错误的单元格：
For Each Cell In rng
If Not IsError(Cell) Then
Cell = Trim(Cell)
Else
MsgBox "Error on " & Cell.Address & " in " & Cell.Parent.Name
End If
Next Cell
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句