Question

我想在返回的每行信息的值末尾添加一个自动递增数字。

这就是我所拥有的。我希望第一行有J1.1，然后是J1.2，J1.3等等。

' J1 Bars
For CurCol = 2 To LastCol
If .Cells(22, CurCol).Value = "" Then
    ' Do Nothing
Else
    DestRow = Sheets("Barlist").Range("B" & Rows.Count).End(xlUp).Row + 1
    'Quantity
    Sheets("Barlist").Range("A" & DestRow).Value = "1"
    'Bar Size
    Sheets("Barlist").Range("B" & DestRow).Value = .Range("B16")
    'Bar Mark
    Sheets("Barlist").Range("D" & DestRow).Value = "J1.1"
    'Shape
    Sheets("Barlist").Range("E" & DestRow).Value = "17"
    'B Dimension
    Sheets("Barlist").Range("G" & DestRow).Value = .Range("C20")
    'C Dimension
    Sheets("Barlist").Range("H" & DestRow).Value = .Cells(22, CurCol).Value
End If
Next CurCol

Answer 1

这是什么意思？

' J1 Bars
' Define variable to count rows?
Dim rowCounter as Integer
rowCounter = 0
For CurCol = 2 To LastCol
If .Cells(22, CurCol).Value = "" Then
    ' Do Nothing
Else
    DestRow = Sheets("Barlist").Range("B" & Rows.Count).End(xlUp).Row + 1
    'Quantity
    Sheets("Barlist").Range("A" & DestRow).Value = "1"
    'Bar Size
    Sheets("Barlist").Range("B" & DestRow).Value = .Range("B16")
    'increment row counter
    rowCounter = rowCounter + 1
    'Bar Mark with incremented row counter
    Sheets("Barlist").Range("D" & DestRow).Value = "J1." & rowCounter
    'Shape
    Sheets("Barlist").Range("E" & DestRow).Value = "17"
    'B Dimension
    Sheets("Barlist").Range("G" & DestRow).Value = .Range("C20")
    'C Dimension
    Sheets("Barlist").Range("H" & DestRow).Value = .Cells(22, CurCol).Value
End If
Next CurCol

VBA自动增量编号

1 个答案: