Excel 如何修剪数据字体中的空格?
我想修剪Excel 如何修剪数据字体中的空格?,excel,vba,Excel,Vba,我想修剪列O中列N中的数据,当我使用函数=修剪(O2)时,它会工作,但我需要使用ExcelVBA代码来完成此操作 在我运行下面的代码后,它将显示与列N中的列O相同的内容,即我要修剪的数据 我可以帮助任何人解决我的问题 下面是我的代码和数据 Sub TRY() Columns("N:N").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Dim row1 As Lo
列O
中列N
中的数据,当我使用函数=修剪(O2)
时,它会工作,但我需要使用ExcelVBA
代码来完成此操作
在我运行下面的代码后,它将显示与列N
中的列O
相同的内容,即我要修剪的数据
我可以帮助任何人解决我的问题
下面是我的代码和数据
Sub TRY()
Columns("N:N").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Dim row1 As Long
With Worksheets("Sheet1")
row1 = .Range("N2").End(xlDown).Row
For i = 2 To row1
.Cells(i, "N").Value = Trim(.Cells(i, "O").Value)
Next i
End With
End Sub
更换:
.Cells(i, "N").Value = Trim(.Cells(i, "O").Value)
与:
这将只删除字符串中的前导空格。使用
工作表函数。修剪。它与Trim
不同,后者是VBA.Trim
。我不明白。您正在处理数字,您想修剪什么?我想修剪空间,因为在我将数据导入AccessHi时,空间将导致错误。谢谢您的帮助,但我尝试过此操作,但它不起作用。
.Cells(i, "N").Value = LTrim(.Cells(i, "O").Value)