Excel - VBA - сцепление - несколько ячеек в столбце

Question

У меня есть код для объединения трех столбцов в листе различий для одной ячейки -

Sheets("Sheet2").Range("D2") = Sheets("Sheet2").Range("A2") & 
Sheets("Sheet2").Range("B2") & Sheets("Sheet2").Range("C2")

Я хочу повторить эту ячейку в течение n раз в таблице Excel - не могу этого сделать

Answer 1

В этой процедуре n - последняя строка, которую вы хотите заполнить:

Sub KonKat()
    Dim n As Long, i As Long
    n = 5

    With Sheets("Sheet2")
        For i = 2 To n
            .Range("D" & i).Value = .Range("A" & i).Value & .Range("B" & i).Value & .Range("C" & i).Value
        Next i
    End With
End Sub

Answer 2

Предположим, что вы сохранили свои числа в столбцах A, B, C.

Сначала используйте этот код для определения последней строки (1 обозначает столбец A):

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

Затем используйте For цикл, чтобы достичь того, что вы после (1 обозначает столбец A, 2 - B, 3 - C, D - 4):

For i = 1 To lastRow
    Cells(i, 4).Value = Cells(i, 1).Value + Cells(i, 2).Value + Cells(i, 3).Value
Next