温馨提示:本文翻译自stackoverflow.com,查看原文请点击:excel - How to paste static data in a new column on one worksheet for every new row added to a table on anot

excel - 如何将静态数据粘贴到一个工作表上的新列中,以便将每个新行粘贴到一个表上

发布于 2020-03-27 11:17:51

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

查看更多

查看更多

提问者
ak40837
被浏览
76
ak40837 2019-07-13 00:04

这是我一直在寻找的答案:

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

发布
问题

分享
好友

手机
浏览

扫码手机浏览