Excelで行番号に応じての処理

よろしくお願いします。

C列に３行ごとに規則正しくみっちり１０００行ほどの文字列があります。
1 品番
2 商品名
3 備考
4 品番
5 商品名
6 備考
7 品番

自動的に２つの処理をしたいのですが、わからなくて困っています。
いずれもＣ列をＤ列にコピーするときの処理です。

１）
行番号が３の倍数のときにはコピーせず（空白）、１と２との時はコピー。
※品番と商品名だけをコピー

２）
品番だけ、フォントを変えたい


よろしくお願いします。※Excel2007です

No.5 ベストアンサー 回答者： cj_mover 回答日時： 2012/09/25 19:30

なんか違和感があるので戻ってきましたが、

数式で対応するのなら、
　１）Ｄ１のフォントを変更
　２）Ｄ１：Ｄ２を選択
　３）数式 =C1 を入力して、Ctrl+Enterで確定
　４）Ｄ１：Ｄ３を選択
　５）下方向に必要な行数フィルコピー
でよいのでは？

私は、
"コピー"というのは言葉通り「コピー＆ペースト」
"自動的に"というのは「行番号に応じ]の部分を自動化する
というように読めましたので、回答No.3でレスしています。

この回答へのお礼

大変参考になりました。
ありがとうございました。m(__)m

お礼日時：2012/10/04 11:19

No.6 回答者： keithin 回答日時： 2012/09/25 21:32

＞いずれもＣ列をＤ列にコピーするときの処理です。

という事なら。

手順：
Ｄ１に
=C1&""
と記入する。更にフォントを設定しておく
Ｄ２に
=C2&""
と記入する
Ｄ３は空っぽにしておく

Ｄ１：Ｄ３を選択し、下向けにつるつるっとオートフィルドラッグする
で完成です。

この回答へのお礼

大変参考になりました。
ありがとうございました。m(__)m

お礼日時：2012/10/04 11:19

No.4 回答者： mike_g 回答日時： 2012/09/25 18:26

添付図参照

１．セル D1 に式 =IF(MOD(ROW(),3),C1,"") を入力して、此れを下方にセル D3 までドラッグ＆ペースト
２．セル D1 のフォントを変更
３．範囲 D1:D3 を下方にズズーッとドラッグ＆ペースト

この回答へのお礼

大変参考になりました。
ありがとうございました。m(__)m

お礼日時：2012/10/04 11:19

No.3 回答者： cj_mover 回答日時： 2012/09/25 17:52

こんにちは

何度も同じ作業を繰り返す必要があるなら、
マクロ（ＶＢＡ）で対応することになるでしょうけれど、
（↑それならそれで相談してください）
シートづくりの方法は色々知っておいた方がよいですから、一例として
応用し易い方法として、一次的に作業シートを使う例を紹介します。

１）まずは、Ｃ列からＤ列へ、普通に、コピペします。

２）新しいシート（作業シート）を挿入します。

３）作業シートの
　　　Ｄ１　に　数値の　1
　　　Ｄ２　に　文字列の　'１
　　を入力します。
４）作業シートの
　　　Ｄ１：Ｄ３　を選択した状態から
　　　下方向に必要な行だけフィルして連続データを作成します。
　※数値、文字列、空白、の３値のパターン繰り返しを作れば良いだけなので
　　方法はなんでもいいですし、行数は多めで構いません。
　　やり方によっては、３の倍数行、でないとうまくいかないのでご注意を。

５）作業シートと元の（編集対象）シートをグループ化します。
　　　作業シートが選択されている状態から
　　　Ｃｔｒｌキーを押しながら、元のシートのシートタブをクリックします。
　※見た目では余り変化ありません。（シートタブがちょこっと変化）

６）Ｄ列をまるごと選択して
　　　Ｆ５キー、で ジャンプ を表示
　　　[セルの選択]→[空白セル]にチェック→[ＯＫ]
　※備考の行のみ、すべて選択されます
７）そのまま、ＤＥＬキー。
　※備考の行だけを消去しました。

８）Ｄ列をまるごと選択して
　　　Ｆ５キー、で ジャンプ を表示
　　　[セルの選択]→[定数]にチェック→[文字列]のチェックを外す→[ＯＫ]
　※品番の行のみ、すべて選択されます

９）品番の行に対してフォント変更。

１０）作業シートを削除
　※バッサリいっちゃって構いません。

以上です。

この回答へのお礼

大変参考になりました。
ありがとうございました。m(__)m

お礼日時：2012/10/04 11:20

No.2 回答者： JazzCorp 回答日時： 2012/09/25 17:20

D1：

=IF(C1="","",IF(MOD(ROW(),3)=0,"",C1))
＋条件付き書式の数式：
=IF(MOD(ROW(),3)=1, 1, 0)
以下、コピー

この回答へのお礼

大変参考になりました。
ありがとうございました。m(__)m

お礼日時：2012/10/04 11:20

No.1 回答者： naktak 回答日時： 2012/09/25 14:55

D列数式

　=IF(ROW()/3=ROUNDDOWN(ROW()/3,0),"",$C1)

D列条件付き書式(数式指定)
　=IF(MOD(ROW(),3)=1, 1, 0)
　の時に、太字設定

D1にこれらを設定して、D2以降にコピればいいです。