Макрос копирования определенных ячеек после заполнения первого столца

Пользователь

Сообщений: 8 Регистрация: 30.01.2021

Merlicka

30.01.2021 12:27:36

Друзья, добрый день. Помогите, пожалуйста, как поменять этот код макроса, чтобы при заполнении первого столбца происходило копирование на первый лист не всей строки, а только определенных ячеек, например, ячеек В,С,D?

Код

Private Sub Worksheet_Activate()
    Dim a(), i&, ii&, x&
    UsedRange.Clear
    a = Sheets(1).UsedRange.Value
    ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
    For i = 1 To UBound(a)
        If Len(a(i, 1)) Then
            ii = ii + 1
            For x = 2 To UBound(a, 2): b(ii, x) = a(i, x): Next
        End If
    Next
    [a1].Resize(ii, UBound(b, 2)) = b
End Sub

Прикрепленные файлы

пример.xls (33 КБ)

Настя_Nastya

Пользователь

Сообщений: 806 Регистрация: 14.07.2019

30.01.2021 13:03:31

Добрый день!

Код

Private Sub Worksheet_Activate()
    Dim a(), i&, ii&, x&
    UsedRange.Clear
    a = Sheets(1).UsedRange.Value
    ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
    For i = 1 To UBound(a)
        If Len(a(i, 1)) Then
            ii = ii + 1
                b(ii, 2) = a(i, 2) 'столбец B
                b(ii, 3) = a(i, 3) 'столбец C
                b(ii, 4) = a(i, 4) 'столбец D
        End If
    Next
    [a1].Resize(ii, UBound(b, 2)) = b
End Sub

Екатерина Ковалева Пользователь Сообщений: 8 Регистрация: 30.01.2021 Merlicka	#3 30.01.2021 13:13:59 Настя_Nastya, спасибо большое!