vba - 在单独的单元格中返回输出

Question

我写了这个User Defined Function code在用户 @Jeeped 的帮助下.

我需要在这段代码中改变两件事:

必须在各个单元格中返回输出，而不是在一个单元格中返回所有输出

“From”和“To”输出必须在单独的列中返回。

这是当前输出:


期望的输出例如:


我试图更改这部分代码但没有成功:

'concatenate the locations from the array
    For v = LBound(vLOCs) To (UBound(vLOCs) - 1)
        sTMP = sTMP & "From " & loc.Cells(vLOCs(v, 2), 1) & " to " & loc.Cells(vLOCs(v + 1, 2), 1) & "; "
    Next v

    'truncate the string and return it
    sTMP = Left(sTMP, Len(sTMP) - 2)
    my_Travels = sTMP

完整代码可见 here

知道如何解决这个问题吗？

Answer 1

我还没有查看您的完整代码，但这样的事情可能会起作用:

For v = LBound(vLOCs) To (UBound(vLOCs) - 1)
my_Travels = Left(Loc.Cells(vLOCs(v, 2), 1), Len(Loc.Cells(vLOCs(v, 2), 1)) - 2)
my_Travels.Offset(0, 1) = Left(Loc.Cells(vLOCs(v + 1, 2), 1), Len(Loc.Cells(vLOCs(v + 1, 2), 1)) - 2)
Next v

假设 my_Travels是单元格引用，然后 offset(0, 1)简单地引用下一列中的单元格。