No.6ベストアンサー
- 回答日時:
No.5です。
ずばりマクロです。入力を聞いてくるので一度目は60、2度目は3を入力して下さい。Dim 行数 As Long
Dim 列数 As Integer
Dim 行 As Long
Dim 移動行 As Long
Dim 移動列 As Integer
Dim 組 As Integer
組 = 3
行数 = InputBox("行数を入力して下さい")
列数 = InputBox("列数を入力して下さい")
For 行 = 1 To Cells(1, 1).End(xlDown).Row
If 行 > 行数 Then
移動列 = ((Int((行 - 1) / 行数)) Mod 列数 + 1) * 組 - 2
移動行 = 行 - (Int((行 - 1) / 行数)) * 行数 + Int(((行 - 行数 * 列数 - 1) / 行数 / 列数) + 1) * 行数
Cells(移動行, 移動列) = Cells(行, 1)
Cells(移動行, 移動列 + 1) = Cells(行, 2)
Cells(移動行, 移動列 + 2) = Cells(行, 3)
Cells(行, 1).ClearContents
Cells(行, 2).ClearContents
Cells(行, 3).ClearContents
End If
Next
この回答への補足
丁寧なご回答有難うございました。
基本的な事を聞いて申し訳ないのですが、上記の命令文をそのままVBEを開いて「挿入」の「標準モジュール」に貼り付けしたらよろしいのでしょうか?
No.4
- 回答日時:
なかなか理解できなくて申し訳ないのですが、もう少し詳しく教えて下さい。
1.データを手入力するのではなく、どこかからデータが来るのですか。それをどうやってエクセルに取り込むのですか。テキスト読み込みもしくは、コピーペーストするのですか。
2.3段組というのは、読み込んだデータを自動的に A-C,D-F,G-Hの三列に(一列当たり60行で区切って)分けるということですか。
3.名前、年齢、生年月日のデータが縦に10000程並んでいるということですか。
この回答への補足
巧く説明できず、何度も申し訳ありません。
1.データはアクセスの入力システムに入力されていて、EXCELに書き出しして渡してくれます。
2.全くその通りです。それが出来れば、かなり業務が短縮できます。
3.同じくその通りで、その並びで単純に並んでいるだけです。医療検診データなので、毎日それくらいやって来ます。
どうぞ、宜しくお願い致します(__)
No.2
- 回答日時:
なぜそのような処理が必要なのでしょう?
もし印刷のためなら、Excelではそのような処理は不要と思いますが、、、
ファイル-ページ設定で行タイトルを設定して、好きな所に挿入-改ページすれば良いような、、、
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- その他(Microsoft Office) Excel2019と365、2021 2 2023/07/08 06:22
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Excel(エクセル) Excelの関数 5 2023/07/07 05:26
- Excel(エクセル) エクセルで最初に値が入っているセルを見つける方法はありますか? 2 2023/07/18 14:58
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) エクセル セル内の文字数を超えたら自動的に折り返して表示 2 2023/07/24 05:32
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロで最終行を取得してコピ...
-
VB.net
-
Excelで、あるセルの値に応じて...
-
【VBA】条件に一致しない行を削...
-
VBAでの重複データに色付け
-
Access2003レポート:最終ペー...
-
エクセルで空白行を削除する ...
-
【VBA】条件に一致しない行を削...
-
VBAで入力の結果を他のセルに反...
-
Excel マクロ 検索結果を別シ...
-
Excel VBA オートフィルタの結...
-
vbaエクセルマクロについて she...
-
エクセル住所録でフラッグの個...
-
【至急】Excel 同一人物の情報...
-
Excel VBAでオートフィルタで抽...
-
空白を複数行一気に挿入するには?
-
エクセルのVBAで指定した行数の...
-
数値に見えるものはすべて数値...
-
エクセルで階層図を作る方法
-
Excel 別ブックから該当データ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
数値に見えるものはすべて数値...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
エクセルのデータがない行には...
-
【VBA】条件に一致しない行を削...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
列から特定の文字列検索→該当以...
-
Excel97 指定した行だけマク...
-
エクセルで階層図を作る方法
-
Excel 別ブックから該当データ...
-
VBAでの重複データに色付け
-
EXCEL VBAでA列にある空白行よ...
-
マクロにて指定の文字間の文字...
-
エクセルのVBAで指定した行数の...
-
Access2003レポート:最終ペー...
-
VBAで特定の行と一つ上の行を削...
-
各個体に対する平均値の自動計...
-
Excel マクロ 検索結果を別シ...
おすすめ情報