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

Question

我正在尝试制作一个工作表，最终将使用原始基地址和位置列表进行路由优化。 我目前有一个使用google maps api的宏，它会列出从原始地址到列表中所有地址的距离和持续时间。 我想尝试使用谷歌地图api找到最短的持续时间，并将相关的地址用作新的原点，这样我就可以再次比较距离和持续时间。 我有工作表设置，以便最短的持续时间地址替换以前的原始地址，但我需要能够将每个新的原始地址复制并粘贴到它们自己的单元格中，以基本上列出它们的使用顺序。

基本上，考虑单元格G16是存储第一起始地址的位置，并且在距离/持续时间宏G16的第一次运行之后，宏G16将更新到距离原始地址最远的任何地址，因此成为新的原点。 然后我需要将该原始地址复制到单元格G18并重复距离/持续时间宏，G16中的每个后续地址一次向下复制1个单元/行。 即，第一个地址被复制到G18，第二个到G19，第三个到G20，直到列出所有地址。 地址数也是可变的，每周都会变化，因此范围不一致。

如果这有任何意义，请告诉我，因为解释起来很复杂。 谢谢！

Answer 1

这应该工作：

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