将数据从列转换为列表

Question

我有一个带有一列数字的Excel文件。我需要从这个特定的列中获取数据，并将它们以列表格式放在其他地方（例如某个地方，如Word文档）。例如：

123456789; 234567891; 23445656; xxx; yyy; zzz; itp.

任何？

Answer 1

复制您的数据列并将其作为无格式文本粘贴到Word中。然后用;替换^ p。

Answer 2

如果希望列中的值列在单元格中，可以在工作簿中使用以下自定义函数。

Function CreateList(Rng As Range) As String
    Dim a As String
    For Each cell In Rng
        a = a & "; " & cell.Value
    Next cell
    CreateList = a
End Function

此函数创建一个以分号分隔的选定范围内的值列表。