列内の各セルをループし、各セルをリストと比較し、隣接するセルに関連する説明を入力します。

Question

目的：数値/コードの列をループし、これらのコードをリスト内のその説明に一致させ、次の列のセルに関連する説明が表示されます。例：A2 = 123456、A3 = 885467、A4 = 954789など...最初のセルA2（123456）を読みます。リスト（123456 = Finance）で123456を探し、B2に "Finance"を置きます。 885467（A3）を読んでください。リスト（885467 =マーケティング）を検索し、B3に "Marketing"を配置します。私はこれを解決するために来て最も近いです：

Sub JobCodeDescription() 
    Dim ws As Worksheet 
    For Each ws In ThisWorkbook.Worksheets 
     'There are 3 worksheets in this Workbook. 
      'Job Code 
      'Location Code 
      'Entity Code 
     'Dim x As Number 
     Dim f As Range 
     For Each f In ActiveSheet.UsedRange.Columns("F").Cells 
      If f = "00053" Then ActiveCell.Offset(0, 1).Value = "Finance" 
      ElseIf f = "00056" Then ActiveCell.Offset(0, 1).Value = "Marketing" 
      ElseIf f = "00082" Then ActiveCell.Offset(0, 1).Value = "Technology" 
      ' continues on... 
     Next f 
     ' This works but the Active Cell DOES NOT move with "f". So the same cell continues to be populated and overwritten. 
    Next ws 
End Sub 

これらのコードは、決して任意の特定の順序で私に来ないし、重複が存在しますので、私は昇順にソートしようとしました。これは助けに思えますが、私はジョブコードをループすることを理解できず、リストをループして一致するコードの説明を見つけることができません。私はこれについてすべて間違っているかもしれない。私はちょうどフラットファイルに列Aのコードを比較したいと思いますが、私はそれを行う方法がわかりません。 「フラットファイル」は.txtファイルで、ジョブコードとその説明のリストです。例：123456 =財務。 ご協力いただければ幸いです。

Answer 1

私が正しく理解すれば、Vlookup()は、組み込み関数であり、マクロを必要としないので、より良いと思います。

あなたのデータテーブルがJ1:K4であり、およびアカウントのリストがA1:A4である、あなたはB1に次の式を使用し、ダウンコピーすることができた場合：

=VLOOKUP(A1,$J$1:$K$4,2,FALSE)

これがために範囲J1:J4を検索します

： A1の値は、その後、カラム Kに一致する値を返します

しかし、マクロを使用する場合は、@ ThomasInzinaが正しいです。ActiveCell.Offset(...)の代わりにf.Offset(...)を使用する必要があります。