excel - 在不删除现有数据的情况下向现有字段添加字母

Question

所以，我想我已经找到了一个解决数据库索引问题的方法，我一直有。它丢弃了具有重复“TIC”编号的索赔。当然，我拥有的这些副本相隔 10 年。我的解决方案是转到导入文件，并在“TIC”字段中添加一个字母，例如“C”代表加拿大索赔，“B”代表巴西索赔等。我需要它来填充“TIC”中的正确字母字段，基于“国家”字段中的数据。这是我现在尝试使用的代码，但它不起作用：

Sub AppendToTIC()

Dim d As Range
For Each d In Selection
  If d.Value = "Canada" Then e.Value = "C" & e.Value
Next

End Sub

我认为我的逻辑有些不对劲，但我不确定。任何帮助将非常感激。

谢谢

Answer 1

如果您只想将字母附加到下一列单元格的开头，那么这将起作用。

您遇到的问题您没有定义使用 D 循环选择的 D 范围，但您无需选择任何内容。

Sub AppendToTIC()

Dim d As Range
Set d = Selection
For Each c In d
    c.Offset(0, 1).Value = Left(c.Value, 1) & c.Offset(0, 1).Value
Next

End Sub