各行の列を連結する

Question

私は選択された範囲のセルを持っています。その中のすべての列を連結し、その行の最初のセルに結果を記録する必要があります（選択の最初の列）。私は、次のコード

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を録音する方法を見つけ出すことはできません。私は間違って何をしていますか？コードで何を修正すればい​​いですか？

Answer 1

これは、選択された各行の最初のセルに値を連結します選択の列A又は最初の列のような、その行の

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