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

Question

我已在用户User Defined Function code的帮助下撰写此@Jeeped。

我需要在此代码中更改两件事：

1. 必须在相应的单元格中返回输出，而不是在一个单元格中返回所有输出
2. “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)只会引用下一列中的单元格。