마스터 시트의 동일한 행에 값을 복사하여 붙여 넣기

Question

copySheet 및 붙여 넣기라는 워크 시트의 열을 pasteSheet라는 시트에 복사하여 첫 번째 빈 행에 붙여 넣는 다음 코드가 있습니다.

lRow = copySheet.Cells(copySheet.Rows.Count, 1).End(xlUp).Row 

    With copySheet.Range("BX2:BX" & lRow) 
    pasteSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 
.Resize(.Rows.Count, .Columns.Count) = .Value 
    End With 

'Determine last row of Column B in copySheet 
    lRow = copySheet.Cells(copySheet.Rows.Count, 1).End(xlUp).Row 

With copySheet.Range("CC2:CC" & lRow) 
pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) 
.Resize(.Rows.Count, .Columns.Count) = .Value 
End With 

지금은 "copySheet"에서 (AK2부터) 열 (BB2에서 시작) BB와 AK를 복사하여 "pasteSheet"에 열 L에 함께 붙여 싶습니다. BB 및 AK 값은 동일한 셀에서 서로간에 하나의 공백을 가져야합니다. 아무도 내가 어떻게 할 수 있는지 아니?

Answer 1

2 개의 셀을 공백과 연결 한 다음 그 값을 다른 시트에 설정하려는 것처럼 들릴까요? 당신은 For 루프이 충분히 쉽게 작업을 수행 할 수 있습니다

For myLoop = 2 to lRow 
    ' recalc firstEmptyRow and increment to get first empty row 
    firstEmptyRow = pasteSheet.Cells(pasteSheet.Rows.Count, "L").End(xlUp).Row + 1 
    myVal = copySheet.Range("BB" & myLoop).Value & " " & _ 
    copySheet.Range("AK" & myLoop).Value 
    pasteSheet.Range("L" & firstEmptyRow).value = myVal 
Next 

나는 당신이 copySheet에서 복사 pasteSheet에서 같은 행에 게시 된 값을 원하는이 경우 가정 하였다; 그렇지 않다면 pasteSheet.Range 행의 위치를 ​​변경해야합니다.