No.1ベストアンサー
- 回答日時:
'直接シートをいじるのでコピーをしてから試してみてください。
Sub Macro1()
COUNTER = 0
For INP = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 5
COUNTER = COUNTER + 1
Range("A" & INP & ":A" & INP + 4).Copy
Range("B" & COUNTER).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
Next INP
Range("A1").EntireColumn.Delete
End Sub
No.5
- 回答日時:
以下のどちらかでできると思います。
(方法1)VBAでプログラムを組む
データを1列づつ読み込んで行番号に応じて1~5列に分けてカット&ペーストする。
(方法2)関数とフィルタを使う
B列に、1~500までの数値を入れる。
C列に、=MOD(B1,5) (5で割った余り)を入れて以下のセルにコピー&ペースト
オートフィルタでC列のデータが1のもののみを選択してコピーし、別シートのA列にペースト
同様に、C列が2,3,4,0のものを選択して別シートのB,C,D,E列にペースト
No.4
- 回答日時:
VBAでやると簡単だが、関数でも出来る。
簡単な番地の計算問題だろう。
エクセルは、データを持ってくる方のセルで考えるのだ。
第1行の1列目が何処から持ってくるかを考える。
データの何番目を持ってくるのはINDEX関数だ。そういうのは勉強したのか。
(1,1)-1
(1,2)-2
(1,3)-3 略
(1,4)-4
(1,5)-5
(2,1)-6 -->(2-1)*5+1
(2,2)-7 -->(2-1)*5+2
(2,3)-8 -->(2-1)*5+3
・・
(3,1)-11 -->(3-1)*5+1
こういうルールは中学の数学ででも出てくる常識なんだ。
Sheet2
A列
a1
a2
a3
a4
a5
a6
a7
a8
・・・・
----
Sheet3のA1に =INDEX(Sheet2!$A$1:$A$100,(ROW()-1)*5+COLUMN(),)
と入れてE1まで式複写。
A1:E1を下方向に式複写。
Sheet3 A-E列
a1a2a3a4a5
a6a7a8a9a10
a11a12a13a14a15
ただし、丁寧には、データ数を超えたら空白になるような式をIF関数で加える(略)
No.3
- 回答日時:
VBAでやると簡単だが、関数でも出来る。
簡単な番地の計算問題だろう。
エクセルは、データを持ってくる方のセルで考えるのだ。
第1行の1列目が何処から持ってくるかを考える。
データの何番目を持ってくるのはINDEX関数だ。そういうのは勉強したのか。
(1,1)-1
(1,2)-2
(1,3)-3 略
(1,4)-4
(1,5)-5
(2,1)-6 -->(2-1)*5+1
(2,2)-7 -->(2-1)*5+2
(2,3)-8 -->(2-1)*5+3
・・
(3,1)-11 -->(3-1)*5+1
こういうルールは中学の数学ででも出てくる常識なんだ。
Sheet2
A列
a1
a2
a3
a4
a5
a6
a7
a8
・・・・
----
Sheet3のA1に =INDEX(Sheet2!$A$1:$A$100,(ROW()-1)*5+COLUMN(),)
と入れてE1まで式複写。
A1:E1を下方向に式複写。
Sheet3 A-E列
a1a2a3a4a5
a6a7a8a9a10
a11a12a13a14a15
ただし、丁寧には、データ数を超えたら空白になるような式をIF関数で加える(略)
No.2
- 回答日時:
こんばんは!
一例です。
表示したいセルに
=INDEX($A:$A,COLUMN(A1)+5*(ROW(A1)-1))
として列方向と行方向にオートフィルでコピーではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのA1~A5の任意のセルを選んだら1、A6~A10のセルなら2と返す設定にしたいと思ってます 6 2023/03/20 18:46
- その他(Microsoft Office) エクセルで串刺ししたシートの並べ替えをしたいです 4 2023/02/14 11:59
- Excel(エクセル) マクロ セルの選択 5 2022/08/12 22:47
- その他(Microsoft Office) エクセルで1行の長いデータを指定の桁数で分割する方法が知りたいです。 4 2022/05/20 21:55
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Visual Basic(VBA) Excelで横書き50行の漢字テストデータを縦書きのテスト問題にしたい。 6 2022/04/27 15:03
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) エクセル VBA 条件付き書式 簡略化したい 2 2022/06/02 17:46
- Excel(エクセル) エクセル シート内のボックスを縦並びから横並びに 7 2023/04/05 04:28
このQ&Aを見た人はこんなQ&Aも見ています
-
カンパ〜イ!←最初の1杯目、なに頼む?
飲み会で最初に頼む1杯、自由に頼むとしたら何を頼みますか? 最初はビールという縛りは無しにして、好きなものを飲むとしたら何を飲みたいですか。
-
大人になっても苦手な食べ物、ありますか?
大人になっても、我慢してもどうしても食べれないほど苦手なものってありますよね。 あなたにとっての今でもどうしても苦手なものはなんですか?
-
「覚え間違い」を教えてください!
私はかなり長いこと「大団円」ということばを、たくさんの団員が祝ってくれるイメージで「大円団」だと間違えて覚えていました。
-
【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
【お題】 ・買ったばかりの自転車を分解してひと言
-
好きな和訳タイトルを教えてください
洋書・洋画の素敵な和訳タイトルをたくさん知りたいです!【例】 『Wuthering Heights』→『嵐が丘』
-
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
エクセルで一列に並んだデータを数行ごとに改行して複数列にしたいです。
Excel(エクセル)
-
MS-excel 10列毎に改行したい
Excel(エクセル)
-
-
4
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
5
一列に並んでいる大量のデータを10個ずつ平均(A1~A2000まである
Excel(エクセル)
-
6
Excelのシートにある1行のデータを複数行に分割したい
Excel(エクセル)
-
7
エクセルで縦に並んだデータを5行毎に横に並べたいです
Excel(エクセル)
-
8
EXCELで100行に1行ずつ抽出したい
Excel(エクセル)
-
9
Excelで大量の2000個のリストを100個ずつ
Excel(エクセル)
-
10
Excelで大量のデータを規則的に改列したいです
Excel(エクセル)
-
11
エクセルで、ある1つの列を複数に分けるには?
Excel(エクセル)
-
12
エクセルで50行ごとに区切ったデータをシートに分割したい
Excel(エクセル)
-
13
エクセルで20万行あるシートから100行ずつ抽出したいのですが
Excel(エクセル)
-
14
エクセルで、2種類のデータを交互に入れなおす方法はありますでしょうか??
Excel(エクセル)
-
15
エクセルで横データを縦に3行ずつ連続してコピーした
その他(Microsoft Office)
-
16
エクセルで縦に並んだデータをある項目毎に横に並び替えたい
Excel(エクセル)
-
17
EXCELで「行と列を入れ替える」操作を何回も繰り返して自動実行する方法はないでしょうか?
Excel(エクセル)
-
18
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
19
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
20
エクセルの表で10行毎に1行づず新しい行を挿入する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで2行単位のソートの出来...
-
エクセルで日付から日にちを削...
-
エクセルで1列に500行並んだデ...
-
excel:別シートの値を飛び飛び...
-
エクセルで、重複データを除外...
-
複数の条件に合う行番号を取得...
-
Countifよりも早く重複数をカウ...
-
エクセルで並び替えをしたあと...
-
エクセル~空白のセルのある行...
-
特定の文字がある行を別シート...
-
エクセル2016にて、行挿入&コピ...
-
【Excel】小計単位で並べ替えを...
-
VBA 大きなtxtテキストファ...
-
差し込み印刷 «Next Record»に...
-
Excelの30個ずつの平均値の出し方
-
エクセルVBA C列に特定の文字列...
-
EXCELでの重複データカウント方...
-
エクセルの複数のセルを一括で...
-
エクセルで勝手に表示された打...
-
EXCELで○ヶ月を○年○ヶ月に変換...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで日付から日にちを削...
-
Excelで2行単位のソートの出来...
-
エクセルで1列に500行並んだデ...
-
excel:別シートの値を飛び飛び...
-
複数の条件に合う行番号を取得...
-
エクセルで、重複データを除外...
-
Excelの30個ずつの平均値の出し方
-
Countifよりも早く重複数をカウ...
-
VBA 数式を最終行までコピー
-
エクセルVBA C列に特定の文字列...
-
500行の中から、多い順に抽出す...
-
エクセル2016にて、行挿入&コピ...
-
エクセルで横並びの複数データ...
-
エクセル~空白のセルのある行...
-
Excelで2つのデータの突合せを...
-
エクセルで時刻だけを抜き出す...
-
エクセルで重複データを削除す...
-
【Excel】小計単位で並べ替えを...
-
本日の日付を超えているものを...
-
VBA 大きなtxtテキストファ...
おすすめ情報