エクセルで自動で罫線を引きたい

質問

エクセルで

りんご　1/12　10個
りんご　1/13　3個
りんご　1/16　4個
いちご　1/12　2個
いちご　1/15　20個
なし　　1/12　9個

と　いう表の、りんごといちごの間、いちごとなしの間の行にマクロ等で自動で罫線を引きたいのですがどうすれば出来ますか?

回答No.2

noname#262398 · ベストアンサー

条件の数式を確認してください。
○　=$A1<>$A2
×　=$A$1<>$A$2

右ドラッグと書きましたが、要は書式のコピーをすればよいのです。
A2セルのみに条件を設定してコピー、表の2行目以降すべてを選択して[形式を選択して貼り付け]-[書式]、でも同じです。

表の2行目以降すべてを選択して、A2セルに条件を設定すれば
選択範囲すべてに条件付き書式が設定されるので、それが一番簡単でしたね。

それから、A2:C2に上罫線の設定をしましたが、
A1:C1に下罫線の設定でも同じです。
違いは、最後のデータ(質問の表なら「なし　　1/12　9個」)に下罫線が付くか付かないかです。

お礼

お察しの通り数式が間違ってました・・・
おかげでうまく動きました。有難うございました～。

回答No.1

noname#262398

マクロではありませんが、
A2:C2(質問の表なら「りんご　1/13　3個」の部分)を選択、[書式]メニューの[条件付き書式]をクリック。
[条件付き書式の設定]で[数式が][=$A1<>$A2]と入力して、
[書式]ボタンをクリック、上罫線の設定をして、[OK]でダイアログボックスをすべて閉じます。
A2:C2から下へ必要な行数だけ右ドラッグ、[書式のみコピー]をクリック。

お礼

回答有難うございます。条件付書式で出来るんでね。
早速試したところ　ドラッグするとドラッグしたセルの条件も=$A1<>$A2になってしまいうまくいきません。何か僕のやり方がおかしいんですか？うまくいきそうなのに残念です。