VBA自动增加一个数字？

Question

我正在尝试使用vba将参考号插入excel中的单元格中。 我想要一个前缀文本'V0000'，然后是一个从836开始的自动递增的数字。

so for each row that gets inserted I will have V0000836
Then V0000837
etc

我的大部分代码创建了一个新行，并自动将数据依次插入其中，但是我不想发布整个代码，而是只关注这一行代码，该行将值插入电子表格的AA列。 我正在使用以下内容，但每次都给我V00001。 有人可以告诉我如何使我的代码执行我想要的事情。

ws2.Range("AA" & DestRow).Value = "V0000836" & Value + 1

Answer 1

考虑一种不从单元格的值中删除数字（数学）功能的替代方法。

ws2.Range("AA" & DestRow).numberformat = "\V0000000"
ws2.Range("AA" & DestRow).Value = 836 + 1

如果需要格式化的（ 显示的 ）字母数字名称，则可以像这样检索它。

Dim str as string, num as long
str = ws2.Range("AA" & DestRow).text    '◄ V0000837
num = ws2.Range("AA" & DestRow).value   '◄ 837

Answer 2

使用VBA，您可以通过在每次循环时增加数字然后在V0000前面添加前缀来实现此目的，如下所示：

Dim i As Integer
Dim cell As Range, rng As Range

Set rng = Range("A1:A10")

i = 836

For Each cell In rng
    cell.Value = "V000" & i
    i = i + 1
Next cell