タグIDの重複

Question

同じIDあると登録しようとするとエラーになり登録できないのですが
どのIDが重複してるのかがすぐにわかりません。
何か良い方法はありませんか？

Answer

ECマスターズの星です。
　
週明け担当よりご案内いたしますので、
今しばらくお待ちください。
お時間いただきまして申し訳ございませんが、
何卒よろしくお願いいたします。

Answer

ECマスターズの田中です。

ゆうさんさんにて、
タグIDの登録を、どのような方法で
行われておりますでしょうか。

RMSから商品個別にご登録いただいている場合は、
タグIDの入力欄の右にある「ID検索」をご利用いただくと便利です。
「ID検索」→「設定」ボタン
とクリックしていただくと、自動で重複が削除されます。

それとも、商品一括編集機能をご利用いただいており、
多数の商品でエラーが発生しているような状態でしょうか。
また、どのアプリケーションで編集していただいておりますでしょうか（Excelなど）。

Answer

参考にした他の出品者のをそのままコピーしたらエラーになりました。

Answer

ECマスターズの田中です。

> 参考にした他の出品者のをそのままコピーしたらエラーになりました。

ということは、
RMSの商品編集画面にて
タグIDの入力欄に貼り付けていただいている、
ということでよろしいでしょうか。

その場合は、先の返信にて申し上げた、
入力欄の右側の「ID検索」→「設定する」
とクリックしていただく方法をお試しください。
動画で実際の操作を記録しましたので、下記URLにてご確認ください。
https://ec-masters.gyazo.com/3bda46e36e743885df996ad819047b60
「設定する」を押した後、重複していたタグIDが消えていることが
おわかりいただけるかと思います。

Answer

工数提言の為に横着をしようとしましたが難しそうですね。エクセルに貼り付けて重複を削除すればいいかもしれません。

Answer

ECマスターズの田中です。

私よりご案内差し上げた、2クリックで重複削除する方法よりも、
Excelを利用した工数の低減を検討されている、ということは、
複数商品に対して一括で設定されようとしている、
ということでよろしいでしょうか。

低減につながるご提案を差し上げるためにも、
普段作業されている内容を、もう少し詳しくお聞かせいただければ幸いです。

Answer

現在のタグIDはそのままに新たに加えようとする作業をしています。
ですのでどうしてもダブってしまいます。

Answer

ECマスターズの田中です。

新たに加えようとする作業を、
Excel上で行われている、ということでよろしいでしょうか。
その場合は、マクロを作成することで、
スムーズに削除することができます。

マクロを使うためには、予めメニューを表示させる必要があります。
https://udemy.benesse.co.jp/office-enhance/microsoft-office/excel-macro.html
上記ページの
■「開発タブ」の設定（動画解説あり）
の内容に沿って操作をお願いします。
内容は後ほどすべて置き換えるので、マクロ名も説明も初期値のままで、
記録が始まったらすぐに記録終了を押してください。

無事、マクロの記録が完了しましたら、同ページの
■マクロの編集・削除（動画解説あり） 内の 編集
の内容に沿って、
「編集」ボタンをクリックして表示された内容を
後の「実際のソース」に置き換えていただきますようお願いします。

無事、マクロ名の一覧に「重複タグID削除」が表示されましたら、
一度シートに戻って、重複したタグIDを含むセルを選択していただき、
「重複タグID削除」を「実行」していただくことで、
選択範囲内のセルで、重複の削除が行われます。

実際に操作していただき、不明な点がございましたらお知らせください。


' 実際のソース（この行の１つ下からコピー・貼り付けてください）
Sub 重複タグID削除()

  Dim a, myDic, x
  Dim h As Range
  Set myDic = CreateObject("Scripting.Dictionary")

  For Each h In Selection
    If h.Value  "" Then
        a = Split(h, "/")
        For Each x In a
          If Not myDic.Exists(x) Then
            myDic.Add x, ""
          End If
        Next
        h.Value = Join(myDic.keys, "/")
        myDic.RemoveAll
    End If
  Next
  
  MsgBox "選択範囲内の、重複タグIDを削除しました。"

End Sub