Объединить ячейки по условию через макрос.

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

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

Объединить ячейки по условию через макрос. (Макросы Sub)

TanyaKar

Дата: Воскресенье, 30.06.2013, 03:10 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2010

Добрый вечер!
У меня возникла проблема.
Передо мной стоит задача объединение двух ячеек с разных страниц. На одной странице лежат ячейки кодами материалов и их описанием в другой ячейке, а на другой ячейке лежат те же материалы, но в хаотичном порядке, для этих ячеек мне необходимо сделать объединение код ячейки плюс описание с другого листа, идентифицируя их по кодам. Проблема в том, что ячейки расположены в первом случае со сдвигом на три ячейки вниз, а во втором, со сдвигом на две ячейки, там где коды совпали у меня все объединяется, но если код не совпал то ячейка остается пустой. Помогите пожалуйста как быть?
[vba]

Код

Dim i, k As Integer
Dim j As Integer
For j = 1 To Sheets.Count
i = 2
k = 1

For Each Cell In Sheets(1).Range("B3:B16")

Do

i = i + 1
k = k + 1

Loop While Sheets(2).Cells(k, 2).Value <> Sheets(1).Cells(i, 2).Value

Sheets(1).Cells(i, 3).Value = Sheets(1).Cells(i, 2).Value & ";" & Sheets(2).Cells(k, 3).Value

Next
Next j
End Sub

[/vba]

Tanya

Ответить

AndreTM

Дата: Воскресенье, 30.06.2013, 03:59 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1762

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

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

2003 & 2010

А зачем макрос-то здесь? И что за методику вы придумали, если на "второй странице у вас всё вперемешку"?
Думаю, что вам вполне достаточно будет воспользоваться =ВПР()

Кстати, мне в вашем коде понравилось: [vba]

Код

For j = 1 To Sheets.Count

[/vba]и так далее smile