在不刪除現有數據的情況下向現有字段添加字母

因此，我認爲我已經達到了解決數據庫索引問題的一個解決方案，我一直在使用它。它正在拋出具有重複「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

東西是關在我的邏輯，我想，但我不知道。任何幫助將非常感激。

感謝

來源

2013-10-30 autumntiger

這是實際的代碼嗎？你正在引用'e.value'，但是你沒有在任何地方定義'e'。 – Joe

你的數據看起來如何？我相信可以使用'LEFT'功能來實現。 – Santosh

我明白你對定義e有什麼看法;你覺得什麼可能最好。我的數據是列d的國家和列e的數字。我試圖在導入文件中設置宏，然後從Access中取出觸發器。 – autumntiger

如果你正在尋找追加只是信下一列單元格的開頭，然後這會工作。

您有問題您沒有定義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

來源

2013-10-30 18:33:46 Sorceri

完美的工作！非常感謝你！ – autumntiger

在不刪除現有數據的情況下向現有字段添加字母

回答

相關問題