Question

我刚刚开始学习Excel VBA，所以在这里忍受我，我有一列ID号，我已经想出了如何生成从1到列表末尾的数字，如下1,2,3,4等

问题是我如何生成像这样的1,1,2,2,3,3等ID号列表（第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

Answer 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

Answer 2

这一切都很好，但是我有一种很好的方法来用所需的一种格式在excel中增加值。当您要使用表格时，此公式确实特别有用。那是公式： ="LIVR"&TEXT(IF(A1=$A$1;0;MID(A1;5;3)+1);"000")做到了

LIVR000
LIVR001
LIVR002
LIVR003
...
LIVR999

在Excel中将ID编号增加1并重复增加的编号2次

2 个答案: