Question

所以，我认为我已经找到了数据库索引问题的解决方案，我一直在使用。它抛出了具有重复“TIC”数字的索赔。当然，我所拥有的这些副本相隔10年。我的解决方案是转到导入文件，并在“TIC”字段中添加一个字母，例如： G。 “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

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

1 个答案: