エクセルＶＢＡの初心者です。特定の値を基準とし、行に罫線をひきたいので

質問

エクセルＶＢＡの初心者です。特定の値を基準とし、行に罫線をひきたいのですが、上手く行きません。
チャレンジしている内容は、下記の通りです。

　　　　　　　Ａ　　　　　　　Ｂ
１行目　　　　100　　　　　　Ｘ店
２行目　　　　100 　 Ｘ店
３行目　　　　101 　Ｙ店
４行目　　　　101A　　　　　　Ｙ店Ｚ営業所
５行目　　　　102　　　　　　Ｖ店

500行程、Ｒ列まで情報が入っています。
罫線をひく条件ですが、
１）Ａ列を基準（上記より値の数が増えていきます。例:102,102Cなど）
２）100の様に同じ値がある場合、100同士の間には罫線をひかず、
　　100と101の間（２と３行目）に罫線をひく
３）101と101Ａは同じグループとなるが、間に２）とは異なる罫線をひく
　　101Ａと102の間は２）と同じ罫線をひく

作業を一つずつ分割し、ＩＦなどを使い考えましたが、できません。
そもそも、やろうとしている事がＶＢＡではできないのか、
このＶＢＡを組むのに私の発想の転換が必要なのか、分からなくなってきてしまいました。

アドバイス等、ご教示頂けますでしょうか？
宜しくお願い致します。

回答No.3

goo793ww · ベストアンサー

>１００と１００Ａ（文字付加）では、数値と文字ですからＩＦ文だけで「値」の比較は不可能です。
掲題の件、当方もノウハウを共有(評価)させていただきました。
　↓↓
[Val関数]が疑問を解決してくれているのでは、
下記は[Val関数]ヘルプを抜粋しました。ご参考に。

説明
指定した文字列に含まれる数値を適切なデータ型に変換して返します。
文字列中に数字以外の文字が見つかると、Val 関数は読み込みを中止します。・・・

Val 関数の使用例
次の例は、Val 関数を使って、文字列に含まれている数値を返します。
Dim MyValue
MyValue = Val("2457") ' 2457 を返します。
MyValue = Val(" 2 45 7") ' 2457 を返します。
MyValue = Val("24 and 57") ' 24 を返します。

以上

回答No.2

watabe007

参考に
Dim c As Range
For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
　　If c.Value = c.Offset(1).Value Then
　　　　'何もしない
　　ElseIf Val(c.Value) = Val(c.Offset(1).Value) Then
　　　　'同じグループ
　　　　c.Resize(, 18).Borders(xlBottom).Weight = xlThin
　　Else
　　　　c.Resize(, 18).Borders(xlBottom).Weight = xlMedium
　　End If
Next

お礼

Runできました！ありがとうございます。

ただ、ひとつひとつの意味・使い方が分からないので、これから本を見直してみます。

回答No.1

hana-hana3

＞このＶＢＡを組むのに私の発想の転換が必要なのか

１００と１００Ａ（文字付加）では、数値と文字ですからＩＦ文だけで「値」の比較は不可能です。

この違いをきちんと判別する事ができないと、次には進めないと思います。

お礼

ありがとうございます。
参考書読み直し勉強してみます。