Question

我是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"

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

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

1 个答案: