Скопируйте данные Excel между листами на основе даты и значения ячейки - PullRequest
Новая
       47

Скопируйте данные Excel между листами на основе даты и значения ячейки

0 голосов
/ 19 декабря 2011

Я хочу скопировать данные ячейки из «Sheet2» в «Sheet1», если значение в столбце «H» на «Sheet2» равно , а не равно «0» (ноль).

Если утверждение верно, я хочу скопировать

  • "Лист2: А2" в "Лист1: А7",
  • "Лист2: F2" в "Sheet1: C7 ",
  • " Sheet2: G2 "до" Sheet1: E7 "и
  • " Sheet2: H2 "до" Sheet1: G7 ".

Затем я хочу перебрать оставшиеся строки в «Sheet2» и продолжить копирование, пока на листе не кончатся данные.

1 Ответ

2 голосов
/ 20 декабря 2011

Используйте следующий код 

Sub filldata()
LastRow = Sheet2.Range("H1048576").End(xlUp).Row
i = 2
j = 7

For i = 2 To LastRow

If Sheet2.Range("H" & i).Value <> 0 Then 'the condition to check

Sheet1.Range("A" & j).Value = Sheet2.Range("A" & i).Value
Sheet1.Range("C" & j).Value = Sheet2.Range("F" & i).Value
Sheet1.Range("E" & j).Value = Sheet2.Range("G" & i).Value
Sheet1.Range("G" & j).Value = Sheet2.Range("H" & i).Value
j = j + 1

End If


Next

End Sub
...