返回单独单元格中的输出

我已经在user @Jeeped的帮助下编写了这个用户自定义函数代码 。

我需要在这个代码中改变两件事情：

1. 输出必须在各个单元格中返回，而不是在一个单元格中返回所有输出
2. “发件人”和“收件人”的输出必须在单独的列中返回。

这是电stream输出：

理想的输出例如：

我试图改变这部分的代码，但没有成功：

'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 

完整的代码可以在这里find

任何想法如何我可以解决这个问题？

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)只是引用下一列中的单元格。