Друзья, добрый день. Подскажите, пожалуйста, есть макрос, который при заполненном столбце А на листе 1, копирует значения на лист 2. Однако, он копирует на лист 2 в те же самые строки, где находились значения на листе 1. Можно ли сделать так, чтобы макрос копировал с листа 1 на лист 2 в последнюю пустую строку? Не эксперт в vba, буду благодарна за помощь.
Код |
---|
Private Sub Worksheet_Activate()
Dim a(), i&, ii&, x&
a = Sheets(1).UsedRange.Value
ReDim b(1 To UBound(a, 1), 1 To UBound(a, 1))
For i = 1 To UBound(a)
If Len(a(i, 1)) Then
ii = ii + 1
b(ii, 1) = a(i, 1) 'столбец A
b(ii, 2) = a(i, 2) 'столбец B
b(ii, 3) = a(i, 3) 'столбец C
End If
Next
[a1].Resize(ii, UBound(b, 1)) = b
End Sub |