勉強ブログ

　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)
　Next

End Sub