在Excel

Question

立即要求 Plz给出方法

我使用DataLoader导出了帐户对象记录。 csv（Excel）文件中的ID有（a0r90000008cJzaAAE）18位数。但我希望那些（a0r90000008cJza）在同一张表或其他Excel表中有15位数。

我写了公式=LEFT(A2,15)，它被截断但是当我试图将这些单元格复制到其他Excel工作表时它没有像空白一样，因为它是一个公式单元格。

怎么办？

Plz告诉我方法

Answer 1

这两个短宏将快速将A列中最左边的15个字符剥离到新插入的列B中或直接剥离到原始列A单元格中。

Sub keep_first_15()
    With Sheet1   '<-imported CSV files almost always have Sheet1 as their codename
        With .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
            .TextToColumns Destination:=.Cells(1, 1), DataType:=xlFixedWidth, _
                           FieldInfo:=Array(Array(0, 1), Array(15, 9))
        End With
    End With
End Sub

Sub send_first_15_to_B()
    With Sheet1   '<-imported CSV files almost always have Sheet1 as their codename
        .Columns(2).Insert
        With .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
            .TextToColumns Destination:=.Cells(1, 2), DataType:=xlFixedWidth, _
                           FieldInfo:=Array(Array(0, 1), Array(15, 9))
        End With
    End With
End Sub

如果您希望将内容发送到其他工作表，则需要提供更多信息。