リストから別のシートに一度に1つのセルをコピーして貼り付けてください

Question

私はVBAに関しては初心者であり、助けてください。

私は1枚のシートを1枚ずつ別のシートにコピーしようとしています。これは、リスト（シート「リスト」）から1つのセル（アカウント番号）をコピーして、別のシート（「分析」）である所定のセルに貼り付け、プログラムからデータを抽出するコードを実行するためです。リストが終わるまで、そのリスト内のすべてのアカウント番号に対してこのプロセスを繰り返す必要があります。このリストのアカウント数は定期的に変更されます。口座番号は、常に、私はデータを抽出するために使用していたコードがあるセル「F2」に

に入ったリストを

Range("F2").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Application.Run "'Option holding.xls'!SecurityDistribution" 

Answer 1

ループとマクロ

Sub Do_It() 
    Dim Sh As Worksheet, ws As Worksheet 
    Dim Rng As Range, LstRw As Long 
    Dim F1 As Range, c As Range 

    Set Sh = Sheets("Transaction Analysis") 
    Set F1 = Sh.Range("F1") 
    Set ws = Sheets("List") 
    With ws 
     LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row 
     Set Rng = .Range("A2:A" & LstRw) 
     For Each c In Rng.Cells 
      F1.Value = c 
      MsgBox "Call Macro Here" 
     Next c 
    End With 
End Sub 

を呼び出します