![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.5ベストアンサー
- 回答日時:
標準モジュールに貼り付けて実行します。
下記をデータ位置に応じて修正ください。日本語で説明を付けた行です。
row_start ⇒ データ開始行(例:B1セルなら1)
col_start ⇒ データ開始列(例:B1セルなら2)
row_number ⇒ 改行する個数(例:1440)
Sub Macro1()
Dim row_start As Single
Dim row_end As Single
Dim col_start As Single
Dim row_number As Single
Dim i As Single
Dim cycle As Single
row_start = 1 'データ開始行(例:B1セルなら1)
col_start = 2 'データ開始列(例:B1セルなら2)
row_number = 1440 '改行する個数(例:1440)
row_end = Cells(Rows.Count, col_start).End(xlUp).row
cycle = Int((row_end * -1) / row_number) * -1
For i = 1 To cycle
Range(Cells(row_start + i * row_number, col_start), Cells(row_start + (i + 1) * row_number - 1, col_start)).Cut Cells(1, col_start + i)
Next i
End Sub
No.9
- 回答日時:
こんにちは
単純な規則なので関数でもできるのに、ご自身でうまく利用できないというマクロで試みる意味がわかりませんが・・・
Sub Sample()
With Worksheets("Sheet2").Cells(1, 1).Resize(1440, 31)
.FormulaLocal = "=INDEX(Sheet1!$A:$A,COLUMN()*1440+ROW()-1440)&"""""
.Value = .Value
End With
End Sub
No.8
- 回答日時:
式 =OFFSET(Sheet1!$A$1,MOD((ROW(A1)-1),3)+INT((ROW(A1)-1)/3)*480+(COLUMN(A1)-1)*3,)
を入力した Sheet2 のセル A1 を[コピー]して、それを範囲 A1:RL273 に[貼り付け]てのは駄目ですか?
【独白】もし、ソレでOKなら、なぜマクロに固執するか理解できません。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_14.png?5a7ff87)
No.4
- 回答日時:
>全部で44640あります。
>それを、1442ごとに改行したいです。
>データの総数は44640あり、それを1440個ずつ改行したいです。
1442と1440のどちらが、正しいのでしょうか。
No.2
- 回答日時:
行数が微妙なので適当に「1400」「1399」を直してください。
Sub Sample()
Dim 終 As Long
Dim 列 As Long
Dim 行 As Long
列 = 1
行 = 1400
終 = Cells(Rows.Count, 1).End(xlUp).Row
Do While 終 = Cells(Rows.Count, 1).End(xlUp).Row
列 = 列 + 1
Range(Cells(行, 1), Cells(行 + 1399, 1)).Cut Cells(1, 列)
行 = 行 + 1400
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで大量データの処理 3 2022/11/15 21:53
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) VBA 指定した列にある日時データから時間を削除する方法について 4 2022/04/14 11:17
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Word(ワード) 差し込み印刷 4 2022/07/19 20:51
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 3 2022/06/12 11:17
- Excel(エクセル) Excelで連続して重複する行数の違う列を参照する方法 5 2023/04/23 06:15
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
Excelで大量のデータを規則的に改列したいです
Excel(エクセル)
-
-
4
MS-excel 10列毎に改行したい
Excel(エクセル)
-
5
一列に並んでいる大量のデータを10個ずつ平均(A1~A2000まである
Excel(エクセル)
-
6
Excelのシートにある1行のデータを複数行に分割したい
Excel(エクセル)
-
7
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
8
エクセルで50行ごとに区切ったデータをシートに分割したい
Excel(エクセル)
-
9
エクセルで長い行を1枚に印刷したい
Excel(エクセル)
-
10
エクセルで数行おきにデータを抽出
Excel(エクセル)
-
11
エクセルで横データを縦に3行ずつ連続してコピーした
その他(Microsoft Office)
-
12
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
13
貼り付けで複数セルに貼り付けたい
Excel(エクセル)
-
14
Wordでこのような三角が出てくるようになってしまったのですがどうやったら消せますか?
Word(ワード)
-
15
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel関数-文字列で自動作成さ...
-
エクセルの関数について教えて...
-
Excelデータをコピペして、ペー...
-
職場の人から聞かれており、こ...
-
ユーザー定義関数をアドイン登...
-
Excelで50個のセルに同じ文字を...
-
スプレッドシート、Excelでの数...
-
Microsoft Officeの中古は信用...
-
エクセルで不等号記号(≠)が上に...
-
スプレッドシートで使う数式を...
-
エクセルでの特別な文字を上に...
-
エクセル日付 文字列の関数がエ...
-
A列とB列を参照してC列に連番を...
-
エクセルVBA、別ブックへ転記す...
-
各ページの1番上の表示について
-
エクセルでセルに標準で入力さ...
-
EXCELの質問です 119から足した...
-
pdfの表をexcelにはりつけて計...
-
Excelのif関数で文字が見えなく...
-
【マクロ】アクティブセルにブ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報
データの総数は44640あり、それを1440個ずつ改行したいです。
すみません、1440が正しいです。
全てA列にあります。