删除Excel中的特定内容

时间:2018-11-16 09:16:28

标签: excel vba excel-vba

我有一个如下所示的数据格式列表。

???m,"N0000001","????(M)","201405","201405","0.57674","0.60831"

???{???Y,"N0000003","????(M)","201402","201402","0.78170","0.68470"

?}???n?j?`??,"N0000004","????(M)","201407","201407","1.54956","1.54956"

???????Y,"N0000015","????(M)","201412","201412","0.95776","0.98891"

,我要删除“ N000000”这部分。只留下有效号码。输出应该像这样

???m,"1","????(M)","201405","201405","0.57674","0.60831"

???{???Y,"3","????(M)","201402","201402","0.78170","0.68470"

?}???n?j?`??,"4","????(M)","201407","201407","1.54956","1.54956"

???????Y,"15","????(M)","201412","201412","0.95776","0.98891"

有人知道我应该怎么做吗?

2 个答案:

答案 0 :(得分:1)

尝试一下。

Sub test()
    Dim rngDB As Range
    Dim Ws As Worksheet
    Set Ws = ActiveSheet
    Set rngDB = Ws.UsedRange
    rngDB.Replace "N000000", ""

End Sub

答案 1 :(得分:0)

您的数据列表非常不清楚。假设与N000000有关的数据在单个单元格中,则可以使用的公式为:

对于单元格A1中的数据,在单元格B1中放置公式:

带有';'作为分隔符:

=right(A1;LEN(A1)-LEN("N000000"))

使用,作为分隔符

=right(A1,LEN(A1)-LEN("N000000"))