在 Excel 中将 ID 号增加 1 并重复增加的数字 2 次答案

【问题标题】：Increment ID number by 1 in Excel and repeat the incremented number 2 times在 Excel 中将 ID 号增加 1 并重复增加的数字 2 次
【发布时间】：2018-06-11 18:41:30
【问题描述】：

我刚开始学习 Excel VBA，所以请耐心等待，我有一列 ID 号，我已经知道如何生成从 1 到列表末尾的数字，如下 1,2,3,4 等.

问题是如何生成像这样的 ID 编号列表 1,1,2,2,3,3 等（第 1 行和第 2 行应该有相同的递增数字）

这是我将数字加 1 的操作：

Sub AddingNbr()
Columns("A").Insert
Range("A1").Value = "ID"
 For i = 1 To Range("B2", Range("B2").End(xlDown)).Count
   Cells(i + 1, 1).Value = i
 Next
End Sub

【问题讨论】：

标签： vba excel increment

【解决方案1】：

你可以试试这个吗？

Sub AddingNbr()
Columns("A").Insert copyorigin:=xlFormatFromRightOrBelow
Range("A1").Value = "ID"
 For i = 1 To Range("B2", Range("B2").End(xlDown)).Count
   Cells(i + 1, 1).Value = WorksheetFunction.Ceiling(CDec(i) / CDec(2), 1)
 Next
End Sub

【讨论】：

代码以某种方式无法运行并突出显示 CEILING 错误子或未定义函数。编辑：我刚刚看到您的第二条评论并更改了代码的上限，非常感谢您是天才！

【解决方案2】：

这一切都很好，但我有一个很好的方法可以用我们想要的一种格式在 excel 中进行值的递增。当你想使用表单时，这个公式真的很有帮助。这就是公式： ="LIVR"&TEXT(IF(A1=$A$1;0;MID(A1;5;3)+1);"000") 它做到了

LIVR000 LIVR001 LIVR002 LIVR003 ... LIVR999

【讨论】：