Question

我在.Value中有文字，我想为每一行添加一个递增的数字。文本是＆＃34; J1。＆＃34;，我想在它的末尾添加1。对于返回的每一行，最终输出应为J1.1，J1.2，J1.3等。

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"
    '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”。＆安培;计数。

Dim lCount As Long
lCount = 1

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." & lCount 'THIS LINE
        '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
        lCount = lCount + 1
    End If

Next CurCol

在.Value的文本末尾添加一个递增的数字

1 个答案: