複数の行をExcelで検索して置換する

Question

商品の長さが|製品名|そして、私は製品価格を置き換えるために、オンラインで私が見つけたこのコードを使用している

製品価格は：

Sub Multi_FindReplaceALL_pvc_replace_new() 
'PURPOSE: Find & Replace a list of text/values throughout entire workbook 
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault 

Dim sht As Worksheet 
Dim fndList As Variant 
Dim rplcList As Variant 
Dim x As Long 

fndList = Array("2 ft", "PVC", "390") 
rplcList = Array("2 ft", "PVC", "290") 

'Loop through each item in Array lists 
For x = LBound(fndList) To UBound(fndList) 
'Loop through each worksheet in ActiveWorkbook 
    For Each sht In ActiveWorkbook.Worksheets 
    sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _ 
     LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ 
     SearchFormat:=False, ReplaceFormat:=False 
    Next sht 

    Next x 

End Sub 

私が午前問題は、このVBスクリプトは、同様の製品名アクリルの価格設定を置き換えています。

ご協力いただければ幸いです。必要に応じて追加情報を提供することもできます。ドクの

画像リンク：http://prntscr.com/h1votx

Answer 1

あなただけの1枚を持っていますか？このコードは、印刷画面のシートで動作しますが、値が入る現在の列にはハードコードされています。異なる値または異なる列に対して機能する必要がある場合は、少し緩和することができます。

Sub Multi_FindReplaceALL_pvc_replace_new() 
'PURPOSE: Find & Replace a list of text/values throughout entire workbook 
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault 

Dim sht As Worksheet 
Dim i As Integer 

Dim lastRow As Integer 

'get the last row in the sheet 
With ActiveSheet 
    lastRow = .Cells(.Rows.Count, "I").End(xlUp).Row 
End With 

'Loop through each row in the sheet 
For i = 1 To lastRow 
'Loop through each worksheet in ActiveWorkbook 
    If Cells(i, 9).Value = "2 ft" And Cells(i, 11).Value = "PVC" Then 
     Cells(i, 20).Value = "290" 
    End If 
    Next i 

End Sub 

基本的には、前のコードはシート全体を実行していて、その配列内にあればすべての値を変更していました。この関数は行ごとに移動し、具体的には値を含む列を比較します