Excel VBA：连接每一行中的列

我有一个选定的单元格范围。 需要连接其中的所有列，并将结果logging在行的第一个单元格中（select中的第一列）。 我试图写下面的代码

Dim row As Object Dim col As Object Dim cell_concat As String For Each row In Selection cell_concat = "" For Each col In row cell_concat = cell_concat & col.Value Next col `How to record in first cell? Next row 

但是，这种方法不幸的是不工作，我不知道如何cell_concat的第一个单元格中loggingcell_concat 。 我在做什么错，在代码中修复什么？

Answer 1

这将连接到每个行中的第一个单元格的值：

 Dim rw As Range Dim col As Range Dim cell_concat As String For Each rw In Selection.Rows cell_concat = "" For Each col In rw.Cells cell_concat = cell_concat & col.Value Next col rw.Cells(1, 1).Value = cell_concat Next row