|
はじめて投稿させていただきます。
データが各列、各行にわりとバラバラに
入力されている状態なのを、
一列に並べたいと思っています。
範囲が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
|
|