No.6ベストアンサー
- 回答日時:
No.4です。
補足に
>与えられるファイルによって100列以上のものがあったりします。
とありましたので・・・
データは1行目のみあり、何列あっても対応できるようにしてみました。
Sub test2()
Dim i As Long
Application.ScreenUpdating = False
For i = 11 To Cells(1, Columns.Count).End(xlToLeft).Column Step 10
Range(Cells(1, i), Cells(1, i + 9)).Cut
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
ActiveSheet.Paste
Next i
Application.ScreenUpdating = True
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
End Sub
こんなんではどうでしょうか?m(_ _)m
No.5
- 回答日時:
VBAでやったほうが、初歩的な考えで済むと思う。
標準モジュールに
Sub test01()
'Cells(i,j) は元データのセル jは23以下、iはデータ行数
'Cells(k,m)は 行き先のセル kは行、lは列
'--行先の始のセル
k = 10 '行
l = 1 '列
'--
d = Range("a9").End(xlUp).Row
MsgBox d
'--
For i = 1 To 3
For j = 1 To 23
Cells(k, l) = Cells(i, j)
'--次にセットするセルの位置の行と列の準備
If l = 10 Then
k = k + 1 '行を1行下へ、(+1)
l = 1 '列はA列へ
Else
l = l + 1 '列を右へ(+1), 行は変えず
End If
Next j
Next i
End Sub
上記の場合データは23X9以下という事でやっている
整理されたデータはA10から作られる。
k = 10 '行の10
d = Range("a9").End(xlUp).Rowの9
を変えればデータ1000行でも出来る。
----
例データ
a1a2a3 以下略 a21a22a23
b1b2b3 b21b22b23
c1c2c3 c21c22c23
半端の終わりであっても良い
結果
a1a2a3a4a5a6a7a8a9a10
a11a12a13a14a15a16a17a18a19a20
a21a22a23b1b2b3b4b5b6b7
b8b9b10b11b12b13b14b15b16b17
b18b19b20b21b22b23c1c2c3c4
c5c6c7c8c9c10c11c12c13c14
c15c16c17c18c19c20c21c22c23
No.4
- 回答日時:
こんばんは!
データはA1~W1セルまでしかないわけですよね?
一応そういうことだとしての一例です。
Sub test()
Dim i As Long
For i = 11 To 23 Step 10
Range(Cells(1, i), Cells(1, i + 9)).Cut
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
ActiveSheet.Paste
Next i
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
End Sub
こんな感じではどうでしょうか?m(_ _)m
この回答への補足
有難うございます。
データソースですが、、今はW列までしかないのですが、与えられるファイルによって100列以上のものがあったりします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
エクセルで一列に並んだデータを数行ごとに改行して複数列にしたいです。
Excel(エクセル)
-
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
-
4
Excelで大量のデータを規則的に改列したいです
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
タイムスタンプとテキストから...
-
シートの情報を別のシートへま...
-
マクロの処理が遅くなった
-
Excelでの文字色
-
ワークシートに出現したこの画...
-
EXCELの散布図で日付が1900年に...
-
OFFSET関数を使用したいのです...
-
エクセルでファイルの最終更新...
-
エクセルの文字が途中から消える
-
エクセルデーターから必要な項...
-
Excel 大小比較演算子による「...
-
SUBTOTALは、参照された数字で...
-
エクセルの数式バーのフォント...
-
エクセルの「条件付き書式」を...
-
Excelについて教えてください。...
-
エクセルVBA 月の中で、月~土...
-
Excelの数字の前に入っている空...
-
Excelの関数について このよう...
-
セルの数を求めたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
Excelで数値を時間数に変換する...
-
エクセルの数式バーのフォント...
-
エクセルで数字の組み合わせを...
-
エクセルを使用して、円周率を...
-
Excelで特定の文字列が含まれて...
-
Excel 対象のセルに入力が無い...
-
任意の値が存在する行に名前を...
-
エクセルでファイルの最終更新...
-
index関数の説明をお願いします。
-
条件付き書式でやりたいのですが
-
重複しない値を取り出したい
-
【ExcelVBA】UTF-8(BOM無)でC...
-
【マクロ】マクロが割当てされ...
-
エクセル IF計算式?でしょうか?
-
エクセルで曜日を入れたい
-
表中の指定した条件の文字列を...
-
【Excel】版が同じ事を示す番号...
-
EXCELの散布図で日付が1900年に...
-
Excelについて。Excelに縦1列に...
おすすめ情報