Excel VBA Конкатенация ячейки с циклом

Question

Мой код ниже генерирует следующее число в последовательности из ячейки над ним, в последней пустой ячейке столбца C при двойном щелчке.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As 
Boolean)
Dim lastrow As Long
lastrow = Cells(Cells.Rows.Count, "C").End(xlUp).Row + 1
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Address = Cells(lastrow, "C").Address Then
Application.EnableEvents = False
Cancel = True
Cells(lastrow, "C") = Cells(lastrow - 1, "C") + 1
Application.EnableEvents = True
End If
End If
End Sub

Что я хотел бы сделать, это включитьпростая конкатенация для ячейки в той же строке в столбце D, которая ставит перед вновь созданным числом буквы «TLD».Я попробовал несколько примеров с этого сайта, но я не добился большого успеха, поскольку я не совсем знаю, как включить его в этот код, или, действительно, если это должно быть?

Так, например,Ячейка C2 = 300000 Ячейка D2 должна затем прочитать TLD300000.Я не хочу использовать формулу, так как я не буду знать, сколько строк будет использовано с течением времени.Есть идеи?Спасибо, Пол

Answer 1

Попробуйте следующее

Dim c As Range
For Each c In Range("C2:C" & Lastrow)
If c.Value <> "" Then
c.Value = c.Value & "TLD"
End If
Next c

Answer 2

добавить одну строку

        ….
        Cells(lastrow, "C") = Cells(lastrow - 1, "C") + 1
        Cells(lastrow, "D") = "TLD" & Cells(lastrow - 1, "C") '<--- added line