Добрый день, друзья. Нужна помощь в исправлении макроса. Макрос копирует из листа 1 на лист 2 столбцы A,B,C при условии, если заполнен столбец A. Однако, если попробовать написать что-нибудь в столбцах D, E, F и тд, и перейти со 2 листа на 1, то он стирает все, что было написано на 2 листе. Можно это как-нибудь исправить?
Код |
---|
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 |