Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何修剪数据字体中的空格?_Excel_Vba - Fatal编程技术网

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)
时,它会工作,但我需要使用Excel
VBA
代码来完成此操作

在我运行下面的代码后,它将显示与
列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)