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

4 hits

【76244】データを一列に並べるマクロ akiko☆ 14/10/20(月) 15:12 質問[未読]
【76246】Re:データを一列に並べるマクロ γ 14/10/20(月) 21:46 発言[未読]
【76250】Re:データを一列に並べるマクロ akiko☆ 14/10/21(火) 9:40 質問[未読]
【76271】Re:データを一列に並べるマクロ γ 14/10/22(水) 21:24 発言[未読]
【76273】Re:データを一列に並べるマクロ akiko☆ 14/10/23(木) 9:47 お礼[未読]

6092 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free