【マクロ】選択したすべてのセルをコピーして、1列にペースト

Sub AlignDataTo1Col()　Dim lngRow As Long 　Dim lngCol As Long 　Dim strData As String 　Dim varData As Variant 　Dim lngLop As Long 　Dim rngOutPut As Range　For lngCol = Selection(1).Column To Selection(Selection.Count).Column 　　For lngRow = Selection(1).Row To Selection(Selection.Count).Row 　　　If Not IsEmpty(Cells(lngRow, lngCol).Value) Then 　　　　strData = strData & vbTab & Cells(lngRow, lngCol).Value 　　　End If 　　Next lngRow 　Next lngCol　varData = Split(strData, vbTab)　On Error Resume Next 　Set rngOutPut = Application.InputBox(Prompt:="出力先セルを指定してください。", Type:=8)　For lngLop = 1 To UBound(varData) 　　rngOutPut.Offset(lngLop - 1, 0).Value = varData(lngLop) 　NextEnd Sub