如何将静态数据粘贴到一个工作表的新列中，以便将每个新行添加到另一个工作表的 table

Question

我是 VBA 和一般编码方面的新手，正处于创建项目管理工具的初级阶段。使用此工具的过程始于员工输入需要开设的帐户列表。对于每个帐户，都有一个标准化的任务列表，需要完成这些任务才能正式开设该帐户。

我想要的是，对于添加的每个新帐户，标准化的任务列表一起显示在单独的 sheet 上，而不是需要打开的帐户所在的位置。

我想的是使用一个循环，这样对于添加到 table 需要开设的帐户的每个新行，标准化的任务列表都是从工作中复制的[=工作簿中的 18=] 到包含所有帐户的所有标准化列表的工作 sheet。这是我在工作中的代码。但是，我可以寻求帮助和指导。

Dim New_Markets As Range
Set New_Markets = ThisWorkbook.Worksheets("List of Markets").Range("A1:B104")

Dim LastRow As Long
LastRow = ThisWorkbook.Worksheets("SKAs").ListObjects("Table1").Range.Rows.Count

Dim SKAs As Range
Set SKAs = ThisWorkbook.Worksheets("SKAs").Range("A1:E" & LastRow)

For Each Rows In SKAs
'I want to add a column of New_Markets to the sheet "Market to Open"

Answer 1

这就是我要找的答案：

Sub Adding_New_SKAs()

Dim New_Markets As Range
Set New_Markets = ThisWorkbook.Worksheets("List of Markets").Range("A1:B104")

Dim LastRow As Integer
LastRow = ThisWorkbook.Worksheets("SKAs").Range("A1").CurrentRegion.Rows.Count

Dim i As Integer, Index As Integer

Index = 0

For i = 2 To LastRow
   New_Markets.Copy Sheet2.Range("A1").Offset(0, Index)
   Index = Index + 3
Next i

Columns.AutoFit

End Sub

如何将静态数据粘贴到一个工作表的新列中，以便将每个新行添加到另一个工作表的 table

How to paste static data in a new column on one worksheet for every new row added to a table on another worksheet

excel

vba

project