Excel VBA根据下一列

时间:2016-10-20 00:45:33

标签: excel excel-vba vba

首先我不知道自己在做什么,所以我可能错过了一些明显的东西

我目前正在使用宏来更改值列表。我可以使用索引匹配函数来做同样的事情,但宏只是为了我们的目的更好。

我现在没有遇到任何问题,公式用y代替x和b;但是我有一个新变量,它实际上是3个变量。

这个新变量需要根据其旁边的列中包含的值替换为三个值中的一个。这是我用于常规值的内容:

Columns("C:C").Select
Range("C1").Activate
Selection.Replace What:="D", Replacement:="8D", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
    ReplaceFormat:=False
Selection.Replace What:="E", Replacement:="8E", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
    ReplaceFormat:=False

但是我需要将“ - ”替换为“extra 1”,“extra 2”或“extra 3”,具体取决于D列是否在同一行中包含1,2或3。我知道简单地使用= c2&“”来制作一个额外的列。& d2可以解决我的问题但是,为了使这个过程对其他人来说非常容易,我想将它全部保持为1个关键的笔划。如果我配得上它,请随意贬低我。

data pic

1 个答案:

答案 0 :(得分:0)

所以这可能是一种效率很低的方法,但我只是编写了一些行来创建一个额外的列并在那里进行连接,然后将其复制到原始数据上。