Excel代码可在一个单元格中（从可能的文本列表中）查找特定文本并填充另一个单元格

Question

因此，我正在使用电子银行交易的副本n粘贴填充电子表格。我希望excel在该单元格左侧的单元格10中填充该特定成本成本中心编号。 例如，汽油的成本中心编号为10 我将银行对帐单复制并粘贴到工作表中，工作表会看到所有包含“汽油”的单元格，并在单元格左侧第10位填充10

我不想使用公式来执行此操作，我想将其放在vba中。
有人可以帮忙吗？

预先感谢

Answer 1

您可以使用以下代码将值复制到左侧的10个单元格中。

Cells（Row，Column）.Value = Cells（Row，Column + 10）.Value

要获取“行”和“列”的值，可以使用find函数查找“汽油”的地址以及所需的所有其他值。