商品一括登録による価格の一括変更

Question

お世話になります。

特定の文字列を持つ商品名の価格を一括変更したいのですが、

商品名が商品行、価格がSKU行になっているので、EXCELLのフィルタで商品名でフィルタをかけると変更できません。

効率的なやり方はありますか？

Answer

ECマスターズの菅原です。

いただいたご質問につきまして
お調べして回答させていただきます。
恐れ入りますが、もうしばらくお時間くださいませ。

Answer

ECマスターズの田村です。

> 特定の文字列を持つ商品名の価格を一括変更したいのですが、
> 商品名が商品行、価格がSKU行になっているので、EXCELLのフィルタで商品名でフィルタをかけると変更できません。

マクロをご利用いただくことで、
変更が可能かと存じます。

ただ、当フォーラムではマクロの作成は
有料サポートになっており基本承っておりません。

恐れ入りますが、
ChatGPTなどのツールをご活用いただき、
コードを生成していただけますと幸いです。

念のため、Chat GPTで生成したコードを
以下に記載いたします。

「商品名に 'XYZ' を含む商品」の価格を
「5000」に一括変更するVBAです（動作確認済み）

Sub 価格一括変更()
Dim i As Long
Dim lastRow As Long
Dim 商品名 As String
Dim 変更する文字列 As String
Dim 新しい価格 As Double

変更する文字列 = "XYZ" ' 商品名に含まれる文字列
新しい価格 = 5000 ' 変更したい価格

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

' 商品名と価格の行を処理
For i = 1 To lastRow - 1 Step 2
商品名 = Cells(i, 1).Value
If InStr(1, 商品名, 変更する文字列) > 0 Then
Cells(i + 1, 2).Value = 新しい価格 ' 価格を変更
End If
Next i
End Sub