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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
エクセルのデータがない行には...
-
マクロで最終行を取得してコピ...
-
vbaエクセルマクロについて she...
-
VBでスプレッドをしようする際...
-
Excel マクロ 検索結果を別シ...
-
エクセルで階層図を作る方法
-
【VBA】条件に一致しない行を削...
-
VBAで入力の結果を他のセルに反...
-
エクセルのVBAで指定した行数の...
-
空白を複数行一気に挿入するには?
-
Access2003レポート:最終ペー...
-
Excel 別ブックから該当データ...
-
【VBA】条件に一致しない行を削...
-
【至急】Excel 同一人物の情報...
-
数値に見えるものはすべて数値...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
マクロの保存先、開いてるすべ...
-
複数のマクロボタンをまとめて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
マクロで最終行を取得してコピ...
-
エクセルのデータがない行には...
-
数値に見えるものはすべて数値...
-
【マクロ】A列最終行までを、カ...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
【VBA】条件に一致しない行を削...
-
エクセルで階層図を作る方法
-
列から特定の文字列検索→該当以...
-
Excel マクロ 検索結果を別シ...
-
各個体に対する平均値の自動計...
-
Excel97 指定した行だけマク...
-
空白を複数行一気に挿入するには?
-
EXCEL2007マクロ/オートフィル...
-
Access2003レポート:最終ペー...
-
EXCEL VBAでA列にある空白行よ...
-
Excel VBA オートフィルタの結...
-
VBAでの重複データに色付け
おすすめ情報