
No.4ベストアンサー
- 回答日時:
> 列Aを基準として、列Aと列Bを比較して異なっているセルがあればセルを赤くしたい
これじゃ、No1さんのようにしか解釈できませんよ。
ご希望はこうですか?
Sub test2()
last = Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row 'A列最終行
last2 = Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row 'B列最終行
For i = 1 To last2 'B列1行から最終行までを検索値とする
Set x = ActiveSheet.Range("A1:A" & last).Find(What:=Cells(i, "B").Value, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) 'A列1行から最終行までを検索
If x Is Nothing Then Cells(i, "B").Interior.ColorIndex = 3 '無ければ赤く
Next
End Sub
No.6
- 回答日時:
こんにちは。
maruru01です。私も条件付書式での方法を。
B1を選択して、条件付書式で、
「数式が」
「=NOT(COUNTIF(A:A,B1))*LEN(B1)」
として、書式を設定します。
あとは、これをB列下行へ書式コピー。
ところで、これだとアルファベットの大文字と小文字が区別されません。
大文字と小文字をきちんと区別したい場合は、条件付書式の数式を、
「=NOT(OR(EXACT(($A$1:$A$10),B1)))*LEN(B1)」
にします。
なお、A列の範囲は適宜変更して下さい。
ただし、後者の場合は、「A:A」のような列全体の指定は出来ません。
必ず、「$A$1:$A$10」のように、範囲で指定(かつ絶対参照で)して下さい。
(A列めいっぱい指定したいなら、「$A$1:$A$65535」にでもして下さい。)
No.5
- 回答日時:
すごいですね
"専門家"と"一般人"が「自信あり」で入り乱れています
質問者さんが「VBA」でと要望されているので皆さんVBAのコードで回答されていますが、
VBAを使用しない方法を置いときますね
条件付書式:
「数式が」「=B1<>INDEX($A$1:$A$65535,MATCH(B1,$A$1:$A$65535))」
No.3
- 回答日時:
少し、質問の文章とご要望は違っているようですね。
後は、工夫してみてください。
Sub test()
Dim r As Range
Dim c As Range
Dim rtn As Variant 'Matchの戻り値
With ActiveSheet
Set r = .Range("A1", .Range("A65536").End(xlUp))
Set s = .Range("B1", .Range("B65536").End(xlUp))
For Each c In s
rtn = Application.Match(c.Value, r, 0)
If IsError(rtn) Then
c.Interior.ColorIndex = 3 'パターン赤
End If
Next c
End With
End Sub
No.2
- 回答日時:
#1の方の式では列AとBが同じ値のセルが赤くなってしまいます。
B列を選択しメニューの書式の条件付き書式で
[数式が]を選び =A1<>B1 と設定してください。書式はパターンで赤を選択。
これで列Aと列Bを比較して異なっているセルがあればセルを赤くできます。
または
条件付き書式で[セルの値が]を選び[次の値に等しくない]を選び=A1と設定してください。書式はパターンで赤を選択。
マクロを記述するならこんな感じです。
Sub Macro1()
Columns("B:B").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A1<>B1"
Selection.FormatConditions(1).Interior.ColorIndex = 3
End Sub
No.1
- 回答日時:
エクセルでしたらVBAを使用しなくても
B列を選択した状態でメニューバーの[書式]→[条件付き書式]
[数式が][=A1=B1]と設定して
[書式]の[パターン]で背景を赤に設定すればできます。
この回答への補足
A1セルとB1セルを対で比較するのではなく、
A列(ソートされていない)、B列(ソートされていない)ものでも異なっている部分を
発見し、セルを赤くさせるということです。
例
A B
B C
C F
D A
この場合FがA列に存在しないので、赤くする。
ということです。すみませんが、アドバイスをお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 比較して等しくなかったらセルを赤くする 4 2022/07/19 20:11
- Excel(エクセル) エクセルの日付から年末尾2桁と月を1月をA~Lに変換したい 3 2022/08/08 10:32
- Visual Basic(VBA) VBAでセル同士を比較して色付け 4 2023/03/06 19:57
- Excel(エクセル) Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range 3 2022/11/05 17:44
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) 条件付き書式の色付きセルのカウント方法について 2 2022/10/21 14:51
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) エクセルで2つの表を比較して、文字列が同じだが、その行のある値が違うものを抽出したい 1 2022/10/06 21:48
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
おすすめの美術館・博物館、教えてください!
美術館・博物館が大好きです。みなさんのおすすめをぜひお聞きしたいです。
-
今の日本に期待することはなんですか?
目まぐるしく、日本も世界も状況が変わる中、あなたが今の日本に期待することはなんですか?
-
洋服何着持ってますか?
洋服を減らそうと思っているのですが、何着くらいが相場なのかわかりません。
-
泣きながら食べたご飯の思い出
泣きながら食べたご飯の思い出を教えてください。
-
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
文字列を比較し、相違するフォント色を変える
その他(Microsoft Office)
-
VBAでセル同士を比較して色付け
Visual Basic(VBA)
-
-
4
VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
5
VBA 列全体を別シートの列と比較し、同じ値がある行の、右端に値をコピーする方法について
Excel(エクセル)
-
6
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
7
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
複数のマクロボタンをまとめて一つのマクロボタンにするということ。
Excel(エクセル)
-
10
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
11
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
エクセルVBA 段落番号自動取得方法
-
VBAの「To」という語句について
-
ExcelのVBAコードについて教え...
-
質問58753 このコードでうまく...
-
VBAでユーザーフォームを指定回...
-
以下のプログラムの実行結果は...
-
VBAでFOR NEXT分を Application...
-
VBAについてです。 どなたかご...
-
VBA 最終行の取得がうまくいか...
-
Excel マクロについて詳しい方...
-
算術演算子「¥」の意味について
-
Excelのマクロについて教えてく...
-
VBAでセルの書式を変えずに文字...
-
【ExcelVBA】値を変更しながら...
-
Excel 範囲指定スクショについ...
-
えくせるのVBAコードについて教...
-
エクセルのVBAコードについて教...
-
VBA 同じフォルダ内のすべての...
-
エクセルでCDOを使ったメール送...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB.net 文字列から日付型へ変更...
-
VBA 最終行の取得がうまくいか...
-
VBAでエクセルのテキストデータ...
-
【ExcelVBA】5万行以上のデー...
-
エクセルVBAで在庫の組み換え処...
-
VBAから書き込んだ条件付き初期...
-
エクセルのVBAコードについて教...
-
VBAでユーザーフォームを指定回...
-
エクセルのVBAについて教えてく...
-
vbaマクロについて
-
ExcelのVBAコードについて教え...
-
【VBA】 結合セルに複数画像と...
-
WindowsのOutlook を VBA から...
-
質問58753 このコードでうまく...
-
ExcelのVBAコードについて教え...
-
Excel VBAについて。こんな動作...
-
[Excel VBA]特定の条件で文字を...
-
[VB.net] ボタン(Flat)のEnable...
-
エクエルのVBAコードについて教...
-
ExcelのVBAコードについて教え...
おすすめ情報