构建逗号分隔字符串

这样做的最佳方式是什么?我应该使用For循环吗?

最懒的方式是

s = join(Application.WorksheetFunction.Transpose([a1:a400]), ",")

这是因为多单元格范围的.Value属性返回一个二维数组,而Join需要一维数组,而Transpose试图太有用,因此当它检测到只有一列的二维数组时,会将其转换为一维数组.

在生产中,建议使用至少一点点懒惰的选项,

s = join(Application.WorksheetFunction.Transpose(Worksheets(someIndex).Range("A1:A400").Value), ",")

否则将始终使用活动表.

翻译自:https://stackoverflow.com/questions/8934184/build-a-comma-delimited-string