VBAをループしてプロセスを繰り返す

Question

2枚あります。 1つは倉庫（18倉庫）、もう1つは倉庫（50庫）です。

200キロメートル以内に店舗を倉庫にマップする必要があります。

私は同じコードを書いていますが、ループする必要があります。コードは以下に記載されています

コードは、倉庫シートから最初の倉庫をコピーし、ショップシートの50店すべてに貼り付けます。 シートの1つの数式（すでにショップのシートで更新されています）は、各ショップと最初の倉庫の間のKMの差を計算します。次に、200 km以内の店舗を除き、倉庫シートの最初の倉庫にコピーして貼り付ける（転置する）。今私は2番目の倉庫と3番目の最後まで同じ手順をしたいと思います。私はお勧めし

==================================

Sub RADIUS() 


Worksheets("SHOP").Activate 
AutoFilterMode = False 
Range("f2:g4175").Clear 
Worksheets("WAREHOUSE").Activate 
Range("C2:d2").Select 
Selection.Copy 


Worksheets("SHOP").Activate 
Range("f2:g4175").PasteSpecial _ 
Operation:=xlPasteSpecialOperationAdd 
Application.Calculation = xlCalculationAutomatic 


AutoFilterMode = True 
Range("A1:h1").AutoFilter Field:=8, Criteria1:="<=200" 
Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy _ 


Worksheets("WAREHOUSE").Activate 


Range("e" & Rows.Count).End(xlUp).Offset(1).Select 


Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
False, Transpose:=True 


End Sub 

Answer 1

を助けてくださいそのサブ宣言の後、私は次のものがあります：

j = 2 
While Worksheet("Warehouse").Range("C"&j) <> "" then 

ループの最後で、ちょうどEnd Subの上に、私は以下が含まれます：

整数 jと

j = j + 1 
Wend