VBA用于将文本从单个未移动的单元格复制到粘贴到另一个单元格，每个粘贴/循环向下移动一个单元格

Question

I am trying to make a worksheet that will eventually be used for route optimization using an original base address and a list of locations. I currently have a macro that uses google maps api that will list distances and duration from the origin address to all of the addresses on the list. I am trying to pull the shortest duration found using the google maps api and have the associated address be used as the new origin so I can compare the distances and duration again. I have the worksheet setup so that the shortest duration address replaces the previous origin address, but I need to be able to copy and paste each of the new origin addresses into their own cells to essentially make a list of the order that they are used.

Basically, consider that cell G16 is where the first origin address is stored and after the first run of the distance/duration macro G16 will update to whatever address is the least furthest away from the origin address, therefor becoming the new origin. I then need to copy that origin address to cell G18 and repeat the distance/duration macro with each subsequent address from G16 being copied down 1 cell/row at a time. ie, the 1st address is copied to G18, the 2nd to G19, 3rd to G20, until all of the addresses are listed. The number of addresses is also variable and changes with each week so the range is inconsistent.

Please let me know if this makes any sense as it is kind of complicated to explain. Thank you!

Answer 1

这应该工作：

Cells(Rows.count, "G").End(xlUp).Offset(1, 0).Value = Range("G16").Value