Question

我在Excel文档中有几千列，我想将它们组合成一个单元格并将它们逗号分隔（中间没有空格），这样我就可以将数据放入SQL查询中。

这就是今天的样子

A1 | 705565 739815  654970  769828  693798  277205  353553 ...

这就是我想要的样子

A1| 705565,739815,654970,769828,693798,277205,353553...

在过去，我使用了一个简单的连接公式（A1＆amp;“，”＆amp; B1＆amp;“，”＆amp; C1），但这个数据集太大了。任何建议都会很棒！

Answer 1

如果所有值都在＃1行中，那么尝试这个小宏：

Sub KonKate()
    Dim s As String, N As Long, i
    Dim v As String
    N = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 1 To N
        v = Cells(1, i).Text
        If v <> "" Then
            s = s & v & ","
        End If
    Next i
    Range("A1").Value = Mid(s, 1, Len(s) - 1)
End Sub

如何使用逗号分隔值将数千列组合到单个单元格中

1 个答案: