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

我是一个新手，当涉及到VBA，并希望得到一些帮助。复制并粘贴一个单元格从一个列表到另一个表

我想从一张纸到另一张纸一次复制一个单元格。原因是因为我想复制一个单元格（account＃）从列表（表单“表单”）并粘贴到另一个表单（“分析”）中的预定义单元格中，并运行将从程序中提取数据的代码。然后，我想对该列表中的所有帐户＃重复此过程，直到列表结束。此列表中的帐户数量将定期更改。帐号将总是通过列表来输入到单元格“F2”

我使用提取的数据是代码，

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

来源

2017-09-25 kdops

你是否熟悉循环？这正是你通过遍历每个单元格所要做的。您可以使用For Each循环或For循环。动态地找到最后一行也是有帮助的，这将成为你的循环的一部分，例如，对于i = 2到LastRow，您已定义最后一行变量。 – Cyril

循环和调用宏

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

来源

2017-09-25 20:13:40 Davesexcel

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

回答

相关问题