Копирование значений

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Копирование значений - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копирование значений (Макросы Sub)

Копирование значений

VanBlack

Дата: Пятница, 01.11.2013, 03:06 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: -28 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте! Нужно чтобы значения ячеек столбцов E, F и G листа "16" с помощью макроса копировались в ячейки столбцов J, K и L листа "Список"? Значения должны соответствовать участникам соревнования, отображающихся в столбце "B". Можно ли такое сделать? Нужен именно макрос!

К сообщению приложен файл: 0111534.rar (85.4 Kb)

Ответить

VanBlack

Дата: Пятница, 01.11.2013, 17:04 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: -28 ±

Замечаний: 0% ±

Excel 2007

Большое спасибо всем, кто заглянул в тему. Необходимость в помощи отпала, т.к. уже помогли на другом форуме. Ещё раз всем спасибо!
Если кому понадобится:
[vba]

Код

Sub Main()
     Dim x As Range, ws1 As Worksheet, ws2 As Worksheet, i As Long
     Application.ScreenUpdating = False
     Set ws1 = Sheets("16"): Set ws2 = Sheets("Список")
     For i = 4 To ws1.Cells(Rows.Count, 2).End(xlUp).Row
         Set x = ws2.[B:B].Find(ws1.Cells(i, 2))
         If Not x Is Nothing Then x.Offset(, 8).Resize(, 3).Value = ws1.Cells(i, 5).Resize(, 3).Value
     Next
End Sub

[/vba]

Ответить

Копирование значений (Макросы Sub)

Страница 1 из 1
1