Макрос поиска и вставки ячеек с другого файла

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

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

x0r

Дата: Пятница, 08.02.2013, 12:44 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

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

Добрый всем день.
С вба только начал знакомство, есть нерешаемая задача. Нужно взять строку из первого файла, найти такую же строку во втором, скопировать диапазон ячеек справа от строки (из второго файла) и вставить справа от строки первого файла. Кол-во строк ~250-300.

Ответить

Матраскин

Дата: Пятница, 08.02.2013, 16:18 | Сообщение № 2

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

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

20xx

x0r, раз файла нет то вот:
копирую данные из файла Лист Microsoft Excel (2).xlsx в файл Копия Лист Microsoft Excel (2).xlsx
[vba]

Код

Sub Макрос1()
      Dim i As Integer, k As Integer, j As Integer
      i = 1
      k = 1
      j = 0
      While Workbooks("Копия Лист Microsoft Excel (2).xlsx").Worksheets("Лист1").Cells(k, 1) <> 0
          While Workbooks("Лист Microsoft Excel (2).xlsx").Worksheets("Лист1").Cells(i, 1) <> 0
              If Workbooks("Копия Лист Microsoft Excel (2).xlsx").Worksheets("Лист1").Cells(k, 1) = _
                  Workbooks("Лист Microsoft Excel (2).xlsx").Worksheets("Лист1").Cells(i, 1) Then
                  For j = 0 To 3 Step 1
                      Workbooks("Копия Лист Microsoft Excel (2).xlsx").Worksheets("Лист1").Cells(k, 1 + j) = _
                       Workbooks("Лист Microsoft Excel (2).xlsx").Worksheets("Лист1").Cells(i, 1 + j)
                  Next j
              End If
              i = i + 1
          Wend
          k = k + 1
          i = 1
      Wend
End Sub

[/vba]
Лист Microsoft Excel (2).xlsx
hhh 1 2 3
kkk 4 5 6
ggg 7 8 9
Копия Лист Microsoft Excel (2).xlsx
kkk 4 5 6
ggg 7 8 9
hhh 1 2 3