Vba 在信息列表上使用宏。每行信息都需要新的工作表
我对所有这些宏都是新手,以前从未使用过,所以需要一些帮助 我已经设置了一个宏来根据模板和信息列表创建新的报价。我有一张名为Summy的表格,其中包括客户信息等,所有这些信息都需要添加到报价模板中。我已经创建了一个基本宏,它可以完成这项工作,但我现在需要它为列出的每个客户执行相同的操作。目前它只运行在第一排。 请有人帮助我使用什么代码才能在整个客户名单上运行Vba 在信息列表上使用宏。每行信息都需要新的工作表,vba,excel-2007,Vba,Excel 2007,我对所有这些宏都是新手,以前从未使用过,所以需要一些帮助 我已经设置了一个宏来根据模板和信息列表创建新的报价。我有一张名为Summy的表格,其中包括客户信息等,所有这些信息都需要添加到报价模板中。我已经创建了一个基本宏,它可以完成这项工作,但我现在需要它为列出的每个客户执行相同的操作。目前它只运行在第一排。 请有人帮助我使用什么代码才能在整个客户名单上运行 Sub Macro2() ' ' Macro2 Macro ' Create New Quote for each customer ' '
Sub Macro2()
'
' Macro2 Macro
' Create New Quote for each customer
'
' Keyboard Shortcut: Ctrl+q
Sheets("Master").Select
Sheets("Master").Copy After:=Sheets(2)
Range("A13").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-9]C[1]"
Range("A15").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-11]C[2]"
Range("E13").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-9]C[-1]"
Range("E15").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-11]C"
Range("B19").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-15]C[5]"
Range("B20").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-16]C[6]"
Range("B21").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-17]C[7]"
Range("B22").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-18]C[8]"
Range("B23").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-19]C[9]"
Range("B24").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-20]C[10]"
Range("B25").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-21]C[11]"
Range("B26").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-22]C[12]"
Range("B27").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-23]C[13]"
Range("B28").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-24]C[14]"
Range("B30").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-26]C[15]"
Range("B31").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-27]C[16]"
Range("B32").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-28]C[17]"
Range("B33").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-29]C[18]"
Range("B34").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-30]C[19]"
Range("B35").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-31]C[20]"
Range("B36").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-32]C[21]"
Range("B37").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-33]C[22]"
Range("B38").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-34]C[23]"
Range("B39").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-35]C[24]"
Range("A40:D40").Select
ActiveWindow.SmallScroll Down:=9
Range("B41").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-37]C[25]"
Range("B42").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-38]C[26]"
Range("B43").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-39]C[27]"
Range("B45").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-41]C[28]"
Range("B47").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-43]C[29]"
Range("B48").Select
ActiveWindow.SmallScroll Down:=-9
Range("C19").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-15]C[30]"
Range("C20").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-16]C[31]"
Range("C21").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-17]C[32]"
Range("C22").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-18]C[33]"
Range("C23").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-19]C[34]"
Range("C24").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-20]C[35]"
Range("C25").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-21]C[36]"
Range("C26").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-22]C[37]"
Range("C27").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-23]C[38]"
Range("C28").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-24]C[39]"
Range("C30").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-26]C[40]"
Range("C31").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-27]C[41]"
Range("C32").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-28]C[42]"
Range("C33").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-29]C[43]"
Range("C34").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-30]C[44]"
Range("C35").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-31]C[45]"
Range("C36").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-32]C[46]"
Range("C37").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-33]C[47]"
Range("C38").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-34]C[48]"
Range("C39").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-35]C[49]"
Range("A40:D40").Select
ActiveWindow.SmallScroll Down:=15
Range("C41").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-37]C[50]"
Range("C42").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-38]C[51]"
Range("C43").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-39]C[52]"
Range("C45").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-41]C[53]"
Range("C47").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-43]C[54]"
Range("C48").Select
ActiveSheet.Name = Range("A13").Value
End Sub
谢谢您的要求非常不明确,我们甚至不知道您的“总结”表是什么样子(可能是打字错误)。因此,我写这段代码是为了让您了解如何实现这一点。只需根据您的要求更改对“摘要”表的引用,或使其具有动态性
Sub do_random()
last_row = ThisWorkbook.Worksheets("Summery").Cells(1, 1).End(xlDown).Row
For i = 1 To last_row
Sheets("Master").Select
Sheets("Master").Copy After:=Sheets(2)
Range("A13").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-9]C[1]"
Range("A15").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-11]C[2]"
Range("E13").Select
ActiveCell.FormulaR1C1 = "=Summery!R[-9]C[-1]"
....
'Do what ever you want in here.
Next i
End Sub
你好,露西,你的问题是什么?请阅读>并阅读>对不起,已更新原始postHello Lucy,看起来您的宏已录制,您要求的是有人为您修改宏。你知道如何修改你的宏吗?我不认为有人可以免费为你工作。