Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6092 / 76734

←次へ　｜　前へ→


	【76244】データを一列に並べるマクロ

akiko☆ - 14/10/20(月) 15:12 -


	引用なし

	パスワード

はじめて投稿させていただきます。

データが各列、各行にわりとバラバラに
入力されている状態なのを、
一列に並べたいと思っています。

範囲がA1からAS7002まであります。
データは26733個です。

何かよいやり方がありますでしょうか。

どうぞよろしくお願いいたします。

※下記マクロを参考にしましたが、
データが多いとエラーになってしまいます。
strData = strData & vbTab & Cells(lngRow, lngCol).Value

▼複数の列に入力されているデータを一列にまとめるマクロ
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)
　Next

End Sub

6 hits

▼

【76244】データを一列に並べるマクロ akiko☆ 14/10/20(月) 15:12