マクロでExcelの値を変更する

Question

毎月、50K行以上の列が少ないファイルがあります。私は通常、列Bの値を異なる値に置き換える必要があります。たとえば、列BのいずれかのフィールドにASDが含まれていて、XYZと置き換えられている場合です。交換する必要のある値のリストがあります。また、上記のように、古い値はB列に2回以上置くことができ、置き換える必要があります。

助けがあれば助かります。

おかげ

Answer 1

はそれを試してみてください。

Sub test() 
'this will get you the last row number in column "B" 
lastRow = Sheets("SheetName").Cells(Sheets("SheetName").Rows.Count,"B").End(xlUp).Row 

'loop through all cells in coulmn "B" and replace text as needed 
For i = 1 To lastRow 
    'you can add multiple lines for each values that needs to be replaced 
    Sheets("SheetName").Cells(i, 2).Value = Replace(Sheets("SheetName").Cells(i, 2).Value, "ABC", "XYX") 
Next i 

End Sub 

'SHEETNAMEは' あなたのシートの名前です。あなたが探していることを願っています！

Answer 2

録音マクロ[表示]> [マクロ]> [マクロの記録]

検索+は、操作

ストップ記録を置き換えてください。

マクロは[編集]をクリックします。

find + replaceを実行する新しく記録されたマクロが表示されます。このマクロは、正確な要件に合わせて編集できます。