複数の列を別のシートにコピーして1つの列にコピーする

Question

複数の列を1つの列の1つのシートから別のシートにコピーする際に助けが必要です。以下は例です。 ありがとう！

Adam  Sammy  Roy 
111  444   777 
222  555   888 
333  666   999 


Adam 
111 
222 
333 
Sammy 
444 
555 
666 
Roy 
777 
888 
999 

Answer 1

あなたは、私が推測するこれらのコードでそれを行うことができます。

Sub one_column() 
Dim numCol As Integer 
numCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column 
Dim i As Integer 
Dim lastRow As Integer 
For i = 1 To numCol 
    lastRow = Sheet1.Cells(Rows.Count, i).End(xlUp).Row 
    Sheet1.Range(Sheet1.Cells(1, i), Sheet1.Cells(lastRow, i)).Copy 
    firstBlank = Sheet2.Cells(Rows.Count, 1).End(3).Row 
    If firstBlank = 1 Then 
    Sheet2.Cells(firstBlank, 1).PasteSpecial 
    Else 
    Sheet2.Cells(firstBlank + 1, 1).PasteSpecial 
    End If 

Next 

End Sub