VBA功能可将文本从一个固定的单元格复制并粘贴到另一个单元格,每个粘贴/循环下移一个单元格

时间:2019-05-29 06:27:42

标签: excel vba

我正在尝试制作一个工作表,该工作表最终将使用原始的基地址和位置列表用于路由优化。我目前有一个使用google maps api的宏,该宏将列出从原始地址到列表上所有地址的距离和持续时间。我正在尝试使用Google Maps API拉出最短的持续时间,并将关联的地址用作新起点,以便我可以再次比较距离和持续时间。我有工作表设置,以便最短的持续时间地址替换以前的原始地址,但是我需要能够将每个新的原始地址复制并粘贴到其自己的单元格中,以实质上列出它们的使用顺序。

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

请告诉我这是否有意义,因为解释起来有点复杂。谢谢!

1 个答案:

答案 0 :(得分:0)

这应该有效:

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