Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8724 / 76732

←次へ　｜　前へ→


	【73576】並べ替えについて

マリモ - 13/1/23(水) 15:56 -


	引用なし

	パスワード

こんにちは。お世話になっております。
量が多くて申し訳ありませんが
宜しくお願いいたします。

まず、Sheet1の1行目を削除します。
(2行ずつ1セットになっています。)
Q列の1桁目を削除します。(例：3500→350)
Sheet1E1→Sheet2B1
Sheet1M1→Sheet2H1
Sheet1G1(例：20110102)→Sheet2I1(23),Sheet2J1(1),Sheet2K1(2)
Sheet1J1→Sheet2L1
Sheet1L1→Sheet2N1
Sheet1H1→Sheet2O1
Sheet1K1→Sheet2P1
Sheet1R1→Sheet2Q1
Sheet1AB1→Sheet2R1
Sheet1V1→Sheet2T1
Sheet1X1→Sheet2V1
Sheet1O1→Sheet2Z1
Sheet1Q1→Sheet2AA1
Sheet1Z1→Sheet2AB1
Sheet1AF1→Sheet2AN1
Sheet1AF2→Sheet2AO1
Sheet1AL1→Sheet2BI1
Sheet1AN1→Sheet2BH1

Sheet1E3→Sheet2B2
Sheet1M3→Sheet2H2
Sheet1G3→Sheet2I2,Sheet2J2,Sheet2K2
Sheet1J3→Sheet2L2
Sheet1L3→Sheet2N2
Sheet1H3→Sheet2O2
Sheet1K3→Sheet2P2
Sheet1R3→Sheet2Q2
Sheet1AB3→Sheet2R2
Sheet1V3→Sheet2T2
Sheet1X3→Sheet2V2
Sheet1O3→Sheet2Z2
Sheet1Q3→Sheet2AA2
Sheet1Z3→Sheet2AB2
Sheet1AF3→Sheet2AN2
Sheet1AF4→Sheet2AO2
Sheet1AL3→Sheet2BI2
Sheet1AN3→Sheet2BH2

上記のパターンを繰り返し、
最後にSheet2R列が1～14の場合は1を入力、21～30の場合は2を入力、
それ以外は3をSheet2S列に入力します。

253 hits

▼

【73576】並べ替えについて マリモ 13/1/23(水) 15:56

≪