Sub test1() '比較sheet
Dim i As Long, j As Long '比較シートa2:c5に貼り付け
Dim row3 As Long: row3 = 2
Sheets("比較").Rows("2:" & Rows.Count).ClearContents
With Sheets("sheet1").Range("a1").CurrentRegion.Offset(1, 0)
.Resize(.Rows.Count - 1).Copy Sheets("比較").Range("a2")
End With
i = 2
Do Until i > Sheets("sheet2").Cells(Rows.Count, "a").End(xlUp).Row
Sheets("sheet2").Cells(i, "E") = ""
i = i + 2
Loop
Dim Flag As Long
i = 2
'Sheet1とSheet2にある商品を出力
Do Until i > Sheets("sheet2").Cells(Rows.Count, "a").End(xlUp).Row
j = 2
Do Until j > Sheets("比較").Cells(Rows.Count, "a").End(xlUp).Row
If Sheets("比較").Cells(j, "a") = Sheets("sheet2").Cells(i, "a") Then
Sheets("比較").Cells(row3, "d") = Sheets("sheet2").Cells(i, "a")
Sheets("比較").Cells(row3, "e") = Sheets("sheet2").Cells(i, "b")
Sheets("比較").Cells(row3, "f") = Sheets("sheet2").Cells(i, "c")
Sheets("比較").Cells(j, "G") = "済"
Sheets("sheet2").Cells(i, "E") = "済"
row3 = row3 + 1
Exit Do
End If
j = j + 1
Loop
i = i + 1
Loop
row3 = row3 + 3
i = 2
'Sheet2にのみある商品を出力
Do Until i > Sheets("sheet2").Cells(Rows.Count, "a").End(xlUp).Row
If Sheets("sheet2").Cells(i, "E") = "" Then
Sheets("比較").Cells(row3, "d") = Sheets("sheet2").Cells(i, "a")
Sheets("比較").Cells(row3, "e") = Sheets("sheet2").Cells(i, "b")
Sheets("比較").Cells(row3, "f") = Sheets("sheet2").Cells(i, "c")
row3 = row3 + 1
Else
Sheets("sheet2").Cells(i, "E") = ""
End If
i = i + 1
Loop
'Sheet1にのみある商品を出力
j = 2
Do Until j > Sheets("比較").Cells(Rows.Count, "a").End(xlUp).Row
If Sheets("比較").Cells(j, "G") = "" Then
Sheets("比較").Cells(row3, "d") = Sheets("比較").Cells(j, "a")
Sheets("比較").Cells(row3, "e") = Sheets("比較").Cells(j, "b")
Sheets("比較").Cells(row3, "f") = Sheets("比較").Cells(j, "c")
row3 = row3 + 1
Else
Sheets("比較").Cells(j, "G") = ""
End If
j = j + 1
Loop
MsgBox ("完了")
End Sub
U3ViIHRlc3QxKCkgICAgJ+avlOi8g3NoZWV0CiAgICBEaW0gaSBBcyBMb25nLCBqIEFzIExvbmcgICfmr5TovIPjgrfjg7zjg4hhMjpjNeOBq+iyvOOCiuS7mOOBkQogICAgRGltIHJvdzMgQXMgTG9uZzogcm93MyA9IDIKICAgIFNoZWV0cygi5q+U6LyDIikuUm93cygiMjoiICYgUm93cy5Db3VudCkuQ2xlYXJDb250ZW50cwogICAgV2l0aCBTaGVldHMoInNoZWV0MSIpLlJhbmdlKCJhMSIpLkN1cnJlbnRSZWdpb24uT2Zmc2V0KDEsIDApCiAgICAgICAgLlJlc2l6ZSguUm93cy5Db3VudCAtIDEpLkNvcHkgU2hlZXRzKCLmr5TovIMiKS5SYW5nZSgiYTIiKQogICAgRW5kIFdpdGgKICAgIGkgPSAyCiAgICBEbyBVbnRpbCBpID4gU2hlZXRzKCJzaGVldDIiKS5DZWxscyhSb3dzLkNvdW50LCAiYSIpLkVuZCh4bFVwKS5Sb3cKICAgICAgICBTaGVldHMoInNoZWV0MiIpLkNlbGxzKGksICJFIikgPSAiIgogICAgICAgIGkgPSBpICsgMgogICAgTG9vcAogICAgRGltIEZsYWcgQXMgTG9uZwogICAgaSA9IDIKICAgICdTaGVldDHjgahTaGVldDLjgavjgYLjgovllYblk4HjgpLlh7rlipsKICAgIERvIFVudGlsIGkgPiBTaGVldHMoInNoZWV0MiIpLkNlbGxzKFJvd3MuQ291bnQsICJhIikuRW5kKHhsVXApLlJvdwogICAgICAgIGogPSAyCiAgICAgICAgRG8gVW50aWwgaiA+IFNoZWV0cygi5q+U6LyDIikuQ2VsbHMoUm93cy5Db3VudCwgImEiKS5FbmQoeGxVcCkuUm93CiAgICAgICAgICAgIElmIFNoZWV0cygi5q+U6LyDIikuQ2VsbHMoaiwgImEiKSA9IFNoZWV0cygic2hlZXQyIikuQ2VsbHMoaSwgImEiKSBUaGVuCiAgICAgICAgICAgICAgICBTaGVldHMoIuavlOi8gyIpLkNlbGxzKHJvdzMsICJkIikgPSBTaGVldHMoInNoZWV0MiIpLkNlbGxzKGksICJhIikKICAgICAgICAgICAgICAgIFNoZWV0cygi5q+U6LyDIikuQ2VsbHMocm93MywgImUiKSA9IFNoZWV0cygic2hlZXQyIikuQ2VsbHMoaSwgImIiKQogICAgICAgICAgICAgICAgU2hlZXRzKCLmr5TovIMiKS5DZWxscyhyb3czLCAiZiIpID0gU2hlZXRzKCJzaGVldDIiKS5DZWxscyhpLCAiYyIpCiAgICAgICAgICAgICAgICBTaGVldHMoIuavlOi8gyIpLkNlbGxzKGosICJHIikgPSAi5riIIgogICAgICAgICAgICAgICAgU2hlZXRzKCJzaGVldDIiKS5DZWxscyhpLCAiRSIpID0gIua4iCIKICAgICAgICAgICAgICAgIHJvdzMgPSByb3czICsgMQogICAgICAgICAgICAgICAgRXhpdCBEbwogICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgaiA9IGogKyAxCiAgICAgICAgTG9vcAogICAgICAgIGkgPSBpICsgMQogICAgTG9vcAogICAgcm93MyA9IHJvdzMgKyAzCiAgICBpID0gMgogICAgJ1NoZWV0MuOBq+OBruOBv+OBguOCi+WVhuWTgeOCkuWHuuWKmwogICAgRG8gVW50aWwgaSA+IFNoZWV0cygic2hlZXQyIikuQ2VsbHMoUm93cy5Db3VudCwgImEiKS5FbmQoeGxVcCkuUm93CiAgICAgICAgSWYgU2hlZXRzKCJzaGVldDIiKS5DZWxscyhpLCAiRSIpID0gIiIgVGhlbgogICAgICAgICAgICBTaGVldHMoIuavlOi8gyIpLkNlbGxzKHJvdzMsICJkIikgPSBTaGVldHMoInNoZWV0MiIpLkNlbGxzKGksICJhIikKICAgICAgICAgICAgU2hlZXRzKCLmr5TovIMiKS5DZWxscyhyb3czLCAiZSIpID0gU2hlZXRzKCJzaGVldDIiKS5DZWxscyhpLCAiYiIpCiAgICAgICAgICAgIFNoZWV0cygi5q+U6LyDIikuQ2VsbHMocm93MywgImYiKSA9IFNoZWV0cygic2hlZXQyIikuQ2VsbHMoaSwgImMiKQogICAgICAgICAgICByb3czID0gcm93MyArIDEKICAgICAgICBFbHNlCiAgICAgICAgICAgIFNoZWV0cygic2hlZXQyIikuQ2VsbHMoaSwgIkUiKSA9ICIiCiAgICAgICAgRW5kIElmCiAgICAgICAgaSA9IGkgKyAxCiAgICBMb29wCiAgICAnU2hlZXQx44Gr44Gu44G/44GC44KL5ZWG5ZOB44KS5Ye65YqbCiAgICBqID0gMgogICAgRG8gVW50aWwgaiA+IFNoZWV0cygi5q+U6LyDIikuQ2VsbHMoUm93cy5Db3VudCwgImEiKS5FbmQoeGxVcCkuUm93CiAgICAgICAgSWYgU2hlZXRzKCLmr5TovIMiKS5DZWxscyhqLCAiRyIpID0gIiIgVGhlbgogICAgICAgICAgICBTaGVldHMoIuavlOi8gyIpLkNlbGxzKHJvdzMsICJkIikgPSBTaGVldHMoIuavlOi8gyIpLkNlbGxzKGosICJhIikKICAgICAgICAgICAgU2hlZXRzKCLmr5TovIMiKS5DZWxscyhyb3czLCAiZSIpID0gU2hlZXRzKCLmr5TovIMiKS5DZWxscyhqLCAiYiIpCiAgICAgICAgICAgIFNoZWV0cygi5q+U6LyDIikuQ2VsbHMocm93MywgImYiKSA9IFNoZWV0cygi5q+U6LyDIikuQ2VsbHMoaiwgImMiKQogICAgICAgICAgICByb3czID0gcm93MyArIDEKICAgICAgICBFbHNlCiAgICAgICAgICAgIFNoZWV0cygi5q+U6LyDIikuQ2VsbHMoaiwgIkciKSA9ICIiCiAgICAgICAgRW5kIElmCiAgICAgICAgaiA9IGogKyAxCiAgICBMb29wCiAgICBNc2dCb3ggKCLlrozkuoYiKQpFbmQgU3ViCg==