각 행의 열 연결

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