宏按顺序添加三个字符

Question

我正在尝试将文字“PPL”添加到预先生成的优惠券代码列表中以上传到我的网站，我们的供应商系统仅生成10位数代码，而我的网站只接受13位数代码。

我应该如何编写VB宏来简单地将这三个字母添加到每个单元格的内容中？

Answer 1

考虑只添加一个相邻的列，第一个单元格包含="PPD"&A1并填充该列。

否则，这是一个简单的for循环。

Dim cel as Range

For Each cel in ThisWorksheet.UsedRage
  if Len(cel) = 10 then cel = "PPD" & cel
Next