Excel宏如果包含特定数字,则替换最后四位数字

时间:2014-10-30 13:58:53

标签: excel excel-vba digits vba

我有一个包含2000行的电子表格。我关注的是B列,其中包含17位数字。我希望宏B检查B列中的所有数字,如果最后四位=" 0000"我想将最后四位更改为" 0001",如果最后四位=" 1900"我想将最后四位数改为" 1998"。可以跳过任何其他方案。

由于

3 个答案:

答案 0 :(得分:1)

您可以使用:

=LEFT(B1,13)&IF(RIGHT(B1,4)="0000","0001",IF(RIGHT(B1,4)="1900","1998",RIGHT(B1,4)))

只需将其放在另一列中,然后用此列中的值替换B列。

答案 1 :(得分:0)

您可以使用相同的公式。以下是相同的excel公式:

=IF(RIGHT(B2,4)="0000",CONCATENATE(MID(B2,1,LEN(B2)-4),"0001"),IF(RIGHT(B2,4)="1900",CONCATENATE(MID(B2,1,LEN(B2)-4),"1998"),B2))

答案 2 :(得分:0)

另一种选择:

=IF(RIGHT(B1,4)="0000",B1+1,IF(RIGHT(B1,4)="1900",B1+98,B1))