Функция VBA для копирования текста из одной неизменной ячейки для вставки в другую ячейку, перемещения вниз на одну ячейку для каждой вставки / цикла - PullRequest
0 голосов
/ 29 мая 2019

Я пытаюсь создать рабочий лист, который в конечном итоге будет использоваться для оптимизации маршрута с использованием исходного базового адреса и списка местоположений.В настоящее время у меня есть макрос, который использует API Google Maps, который будет перечислять расстояния и продолжительность от исходного адреса до всех адресов в списке.Я пытаюсь получить кратчайшую продолжительность, найденную с помощью API Google Maps, и использовать связанный адрес в качестве нового источника, чтобы я мог сравнить расстояния и продолжительность снова.У меня есть настройка рабочего листа, чтобы кратчайший адрес продолжительности заменял предыдущий адрес источника, но мне нужно иметь возможность скопировать и вставить каждый из новых адресов источника в свои собственные ячейки, чтобы по существу составить список порядка их использования.

По сути, учтите, что в ячейке G16 хранится первый исходный адрес, и после первого запуска макроса расстояния / длительности G16 обновится до любого адреса, который находится наименьшем расстоянии от исходного адреса, поэтому он становитсяновое происхождение.Затем мне нужно скопировать этот исходный адрес в ячейку G18 и повторить макрос расстояния / длительности, при этом каждый последующий адрес из G16 копируется по 1 ячейке / строке за раз.т. е. 1-й адрес копируется в G18, 2-й в G19, 3-й в G20, пока не будут перечислены все адреса.Количество адресов также является переменным и меняется с каждой неделей, поэтому диапазон не согласован.

Пожалуйста, дайте мне знать, если это имеет смысл, поскольку это сложно объяснить.Спасибо!

1 Ответ

0 голосов
/ 30 мая 2019

Это должно работать:

Cells(Rows.count, "G").End(xlUp).Offset(1, 0).Value = Range("G16").Value
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...