다른 열에 여러 열을 하나의 열에 차례대로 복사

Question

이 경우 의사 코드를 찾았지만 찾을 수 없습니다. 어떤 도움을 주시면 감사하겠습니다.

1 A  2 B 3 C 
4 D  5 E 6 F 

을하고 같은 새 시트에 복사 : 기본적으로 내가 좋아하는 샘플 데이터를 싶습니다 당신의 그림에 따르면

1 A 
2 B 
3 C 
4 D 
5 E 
6 F 

Answer 1

, 우리는 워크 시트의 모든 것을 복사하고 있습니다. 이 경우 해당됩니다. 부분 집합 인 경우 필요에 맞게 rngSource를 수정 해보십시오.

Sub FlattenAndCopy() 
Dim wsSource As Excel.Worksheet 
Dim rngSource As Excel.Range 
Dim varSource As Variant 
Dim wsTarget As Excel.Worksheet 
Dim SourceCount As Long 
Dim varTarget() As Variant 
Dim i As Long, j As Long 

Set wsSource = ActiveSheet 
Set rngSource = wsSource.UsedRange 
varSource = rngSource.Value 
SourceCount = rngSource.Cells.Count 
ReDim varTarget(1 To SourceCount) 
For i = LBound(varSource, 1) To UBound(varSource, 1) 
    For j = LBound(varSource, 2) To UBound(varSource, 2) 
     varTarget((i - 1) * (UBound(varSource, 2)) + j) = varSource(i, j) 
    Next j 
Next i 
Set wsTarget = wsSource.Parent.Worksheets.Add 
wsTarget.Cells(1).Resize(SourceCount, 1) = Application.WorksheetFunction.Transpose(varTarget) 
End Sub