|
こんばんは。題名のVBAを作成したい初心者です。
どうかよろしくお願いします。
・execlのすでにあるデータを重複検索・削除と比較した結果を別シートに出力。
・各sampleのdata1のデータとdata2のデータがあり、その比較を行いたいです。
・データは最大128個です。
・重複していたら、重複分は消去する。
・一致・不一致の基準はsample毎にdata2にあるデータがdata1に含まれているかで判定
・data2にデータがないsampleは空欄。
■データ
data1 data2
sample1 34 33 12 12 33 34 33 12 33
sample2 3 3
sample3 1
sample4 12 12 12 123 12
sample5 66
sample6 19 22
●出力イメージ
data1 data2 判定結果
sample1 34 33 12 33 34 12 一致
sample2 3 3 一致
sample3 1 不一致
sample4 12 123 12 不一致
sample5 66
sample6 19 22 不一致
■自分なりに書いてみました。
'連結
Sub 連結()
Dim Dic, m As Long, i As Long, buf As String, Keys
Set Dic = CreateObject("Scripting.Dictionary")
On Error Resume Next
m = 3
i = 8
For m = 3 To 1055
For i = 8 To 60
buf = Cells(m, i).Value
If Not Dic.Exists(buf) Then
Dic.Add buf, buf
End If
Next i
Next m
''出力
Keys = Dic.Keys
For i = 0 To Dic.Count - 1
Cells(i + 2, 2) = Keys(i)
Next i
Set Did = Nothing
' Dim Did
' Set Did = CreateObject("Scripting.Dictionary")
' For i = 8 To 60
' buf = Cells(4, i).Value
' If Not Did.Exists(buf) Then
' Did.Add buf, buf
' End If
' Next i
' ''出力
' Keys = Did.Keys
' For i = 0 To Dic.Count - 1
' Cells(i + 3, 2) = Keys(i)
' Next i
' Set Did = Nothing
End Sub
|
|