将一个单元格从列表复制并粘贴到另一个工作表

Question

我是VBA的新手，想要一些帮助。

我正在尝试将一个单元格从一张纸复制到另一张纸张。原因是我想从列表中复制一个单元格（帐号＃）（表单“列表”）并粘贴到预定义单元格中是另一个工作表（“分析”）并运行将从程序中提取数据的代码。我想对该列表中的所有帐号＃重复此过程，直到列表结束。此列表中的帐户数量将定期更改。帐号＃将始终输入单元格“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