商品画像更新君で重複した画像ファイルを削除できますか？

Question

いつもお世話になっております。

https://item.rakuten.co.jp/autosite/05-plus-hlevorg-/
のページに登録している商品画像で
https://tshop.r10s.jp/autosite/cabinet/09_shohin/05-la02-plus-07.jpg
がダブって登録されています。

このような画像が複数商品に存在し、一括で重複した画像を削除したいと考えています。

商品画像更新君で上記のような要望を解決できますでしょうか？

Accepted Answer

ECマスターズの田中です。

> 1.この状態で最後の画像を「消したい」場合
> 2.こう指定してCSVを作成しないといけない？

おっしゃるとおり、0を指定して作成していただく必要がございます。

この処理をExcelの標準機能で行うのは非常に困難なため、
ユーザー定義関数を作成する必要がございます。

ユーザー定義関数の作り方は下記URLをご参照ください。
https://kokodane.com/tec3_3.htm
たとえば、下記のようなIMGURL関数を作ると、
引数に商品画像URLのセルを指定することで、
重複を削除し、削除したぶんの0を末尾に追加した結果を
取得することができます。

Function IMGURL(s As String) As String

    Dim t, l As Integer, i As Integer, c As Integer, d, r()
    t = Split(s, " ")
    l = UBound(t)
    ReDim Preserve r(l + 1)
    
    Set d = CreateObject("Scripting.Dictionary")
    c = 0
    For i = 0 To l
        If Not d.Exists(t(i)) Then
            d.Add t(i), t(i)
        Else
            c = c + 1
        End If
    Next
    
    For i = 0 To UBound(d.Items())
        r(i) = d.Items()(i)
    Next
    For i = 0 To c - 1
        r(l - i) = 0
    Next
    
    IMGURL = Join(r, " ")

End Function

Answer

ECマスターズの田中です。

いただいたケースの場合、
商品情報の商品画像URLを書き換える必要があるため、
画像ファイル自体を操作する商品画像更新君では
解決することができません。

Excelなどを活用して、
item.csvの商品画像URLより
重複した画像を削除・左詰めして、削除した分の「0」を追記する、
といった処理が必要となります。

Answer

ECマスターズ　田中さん

ありがとうございます。

＞Excelなどを活用して、
＞item.csvの商品画像URLより
＞重複した画像を削除・左詰めして、削除した分の「0」を追記する、

このあたりをもう少し詳しく教えてください。

縦方向の重複除外はわかるのですが、横方向はＵＮＩＱＵＥ関数しかヒットしません。(office365の関数）私がインストールしているのはOffice2019なので使えないみたいです。

もしかして、行列入れ替えで貼り付けて、一列ずつ重複を除外しないといけませんか？

Answer

あ。今マニュアルを見て気付きましたがこういうことですか？

1.この状態で最後の画像を「消したい」場合
https://image.rakuten.co.jp/hansoku/cabinet/1.jpg　https://image.rakuten.co.jp/hansoku/cabinet/1.jpg

2.こう指定してCSVを作成しないといけない？
https://image.rakuten.co.jp/hansoku/cabinet/1.jpg　0

うっわ～…。初めて知った。そりゃ重複が溜まっていくわけだ…

Answer

ECマスターズ　田中さん

ありがとうございます！

「一行ずつ探して削除しないと…」ってかな～り落ち込んでたのですが
サクッとできました～～！！

Answer

ちなみに、これってあたらしいExcelのシートを開いたときにも使えますか？そのたびに標準モジュールを追加する必要がありますか？

Answer

ECマスターズの伊藤です。

> ちなみに、これってあたらしいExcelのシートを開いたときにも使えますか？そのたびに標準モジュールを追加する必要がありますか？

ユーザ定義関数は、シートに紐づくため、
新しいシートとして作成した場合は、都度、追加して頂く必要がございます。