【Excel VBA】リストの差分を抽出する(重複しない一意の値を表示する) - 変換.tokyo | henkan.tokyo

【Excel VBA】リストの差分を抽出する(重複しない一意の値を表示する)


■【Excel VBA】リストの差分を抽出する(重複しない一意の値を表示する)

Excelシート上の2つのリストを比較し、「相互の差分を抽出したい!」な〜んていうことはありませんか?
この程度でしたら、本来はVBAを使わなくても出来ますが…

今回はこちらのWebサイト「2つの列の差分を求める(重複しない一意の値を求める)」を参考に作成してみました。
https://hamachan.info/win8/excel/sabun.html

ポイントは、重複値に対する条件付き書式(一意)である「.DupeUnique = xlUnique」です。

VBA_Difference_comparison.png


■サンプルコード

Sub Difference_comparison()
Range("A2:B200").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlUnique

'フォントを濃い赤に、セルの背景は薄い赤に設定
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub


■サンプルVBAダウンロード


■VBA開発に参考となる書籍
[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

入門者のExcel VBA 初めての人にベストな学び方 (ブルーバックス) [ 立山秀利 ]
価格:1058円(税込、送料無料) (2018/10/1時点)

楽天で購入

[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

たった1日で即戦力になるExcelの教科書 [ 吉田拳 ]
価格:1922円(税込、送料無料) (2018/10/1時点)

楽天で購入


by カエレバ
by カエレバ
by カエレバ
by カエレバ
by カエレバ
by カエレバ