我是VBA和一般编码方面的新手，并且处于创建项目管理工具的初期。使用此工具的过程始于员工输入需要打开的帐户列表。对于每个帐户，都有一个标准化的任务列表需要完成，才能正式打开该帐户。
我想要的是，对于每个添加的新帐户，标准化的任务列表一起显示在单独的工作表上，而不是需要打开的帐户所在的位置。
我正在考虑使用一个循环，这样，对于添加到需要打开的帐户表中的每个新行，将标准化的任务列表从工作簿中的工作表复制到包含所有标准化列表的工作表中对于所有帐户。这是我正在编写的代码。但是，我可以使用帮助和指导。
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"
这是我一直在寻找的答案：
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
手机
浏览