Скрипт, который меняет значение ячейки на другое

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

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

Скрипт, который меняет значение ячейки на другое (Макросы Sub)

Homamilae

Дата: Пятница, 04.10.2013, 10:07 | Сообщение № 1

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

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

Сообщений: 16

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

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

Excel 2007

Подскажите пожалуйста, у меня есть файл. на листе 1 есть список элементов в столбце B, на листе 2 в столбце B тот же список и в столбце С краткие наименования этих элементов. Мне необходимо создать скрипт, который просматривает столбец B в листе 1 файла Excel, ищет соответствие в столбце B листа 2 и заменяет это значение в листе 1 на соответствующее из столбца С листа 2. Я впервые работаю с VBA. Что мне необходимо сделать?

Спасибо большое за любую помощь!

Ответить

Hugo

Дата: Пятница, 04.10.2013, 10:26 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 3703

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

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

365

Именно скрипт нужен? Вручную "закопипастить" результат, полученный ВПР() не годится? Я бы делал вручную...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Homamilae

Дата: Пятница, 04.10.2013, 10:41 | Сообщение № 3

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

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

Сообщений: 16

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

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

Excel 2007

Hugo, именно скрипт нужен... к сожалению. Прикрепляю файл, там только две позиции, а на самом деле около 100000

К сообщению приложен файл: 123.xlsx (11.1 Kb)

Ответить

Homamilae

Дата: Пятница, 04.10.2013, 13:18 | Сообщение № 4

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

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

Сообщений: 16

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

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

Excel 2007

Начала писать скрипт, есть вопросы:

[vba]

Код

Dim j As Integer
Dim i As Integer
For i = 1 To "конец строк"

For j = 1 To "конец строк"

If "условие, которое сравнивает Лист1.Cells(i, 1).Value = Лист2.Cells(j, 1).Value"
Лист1.Cells(i, 1).Value = Лист2.Cells(j, 1+1).Value
End If

Next j
Next i

[/vba]

Не могу разобраться как правильно записать "конец строк" и "условие, которое сравнивает Лист1.Cells(i, 1).Value = Лист2.Cells(j, 1).Value"

Сообщение отредактировал Homamilae - Пятница, 04.10.2013, 13:21

Ответить

RAN

Дата: Пятница, 04.10.2013, 13:36 | Сообщение № 5

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

По первому запрос для поиска последняя заполненная
по второму
[vba]

Код

If Лист1.Cells(i, 1).Value = Лист2.Cells(j, 1).Value Then

[/vba]

PS этот вариант будет использовать кодовое имя листа. Если нужно с имя, которое написано на ярлычке, то
[vba]

Код

If Sheets("Лист1").Cells(i, 1).Value = Sheets("Лист2").Cells(j, 1).Value Then

[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Пятница, 04.10.2013, 13:56

Ответить

Homamilae

Дата: Пятница, 04.10.2013, 16:11 | Сообщение № 6

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

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

Сообщений: 16

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

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

Excel 2007

RUN, спасибо!
[vba]

Код

Dim j As Integer
Dim i As Integer
For i = 1 To 125

For j = 1 To 2301

If Лист1.Cells(i, 2).Value = Лист2.Cells(j, 3).Value Then

Лист1.Cells(i, 2).Value = Лист2.Cells(j, 6).Value

End If

Next j
Next i

End Sub

[/vba]

Попробовала данный код на приложенном файле. Почему-то не заменились ячейки - не понятно почему (

[moder]Оформляйте коды тегами (кнопка #)[/moder]