删除没有文字和数字的单元格中的空格

我有这个macros的代码，删除单元格中的文本或数字的前导和尾随空格：

Sub LIMPIAR() Dim i As Integer For i = 2 To 20628 Cells(i, 7).Value = Trim(Cells(i, 6).Value) Next End Sub 

但是，内容是" "单元格。 所以我想把这种细胞转换成"" 。 我怎样才能做到这一点？

编辑：我正在处理刮取的数据。

Answer 1

也许像这样处理他们可以帮助：

  If Len(Cells(i,6).Value) <= 2 Then Cells(i, 7).Value = "" End If 

要么

  If Cells(i,6).Value = " " Then Cells(i, 7).Value = "" End If 

Answer 2

不是一个非常灵活的解决scheme，但我会利用拆分函数，然后协调结果数组的元素。 假设您的string在单元格A1中，

 mystring = "" myarray = Split(Cells(1, 1), " ") For i = LBound(myarray) To UBound(myarray) If Trim(myarray(i)) <> "" Then mystring = mystring & Trim(myarray(i)) & " " End If Next i MsgBox Trim(mystring) 

mystring应该提供一个单词之间只有一个空格的string。 你可以把这段代码放到你的循环中。