Помогите плззззз с MS Excel

[Фархад offline]

Здравствуйте!
Помогите плиззз!
Прошу помочь мне с программой MS Excel.
Допустим, у меня есть таблица: 2 столбца(допустим, "ФИО" и "Зарплата") и много строк.
Каждый месяц приходит другая таблица, в которой лежат обновлённые данные, но в этой таблице даны только обновления.
Как сделать так, чтобы обновления вставлялись в таблицы, не удаляя старых строк, но добавляя новые.
Спасибо!

[Stanis-Modder offline]

Копируешь все новые и вставляешь после старых :dontknow:

[Фархад offline]

Во-первых, спасибо за ответ.
Есть таблица, допустим 2 столбца и 7 строк.Пример
|ФИО|Зарплата|
|Иванов|700|
|Петров|600|
|Сидоров|500|
|Шукшин|400|
|Пупкин|300|
|Безымяный|200|
Приходит обновление, такое:
|Иванов|1000|
|Пупкин|700|
|Новичок1|300|
|Новичок2|1000|
На самом деле в обновлении оч. много записей и просто копировать и вставлять...замучаешься!!!
После обновления должно быть так:
|ФИО|Зарплата|
|Иванов|1000|
|Петров|600|
|Сидоров|500|
|Шукшин|400|
|Пупкин|700|
|Безымяный|200|
|Новичок1|300|
|Новичок2|1000|

Спасибо.

[Фархад offline]

Вдруг кому-то понадобится:

Код: Выделить всё

 
Sub RefreshData()
Set WS1 = Worksheets("Лист1")
Set WS2 = Worksheets("Лист2")

For Each Line2 In WS2.UsedRange.Rows
stroka = Line2.Cells(, 1).Value
Set FR = WS1.Range(WS1.Cells(WS1.UsedRange.Rows.Row, 1), _
WS1.Cells(WS1.UsedRange.Rows.Row + _
WS1.UsedRange.Rows.Count - 1, 1))

Set c = FR.Find(stroka, LookIn:=xlValues, LookAt:=xlWhole)

If c Is Nothing Then
LastRow = WS1.UsedRange.Rows.Count + 1
WS1.Rows(LastRow).Insert Shift:=xlDown
For i = 2 To 9
WS1.Cells(LastRow, i) = WS2.Cells(Line2.Row, i)
Next i
Else
For i = 2 To 9
WS1.Cells(c.Row, i) = WS2.Cells(Line2.Row, i)
Next i
End If
Next Line2
MsgBox "Данные обновлены"
End Sub