温馨提示:本文翻译自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 vba project

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

被浏览

188

查看英文版

查看原文

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

相关问题

1

使用C＃写入Excel。

2

与Datedif公式求和

3

查找从一个工作簿到另一工作簿的匹配值行ID

4

删除多个工作表中表中的空行

5

如何从字符串中查找斜线的出现次数

6

如何将“枚举”转换为数组

7

检查电子表格中的单元格是否为空值

8

在特定工作表的某些列中转换公式

9

VBA遍历工作表以删除重复项

10

如何从具有某些前提条件的位置读取Excel文件？

热门github

1

Suna - Open Source Generalist AI Agent

2

Lightning-fast and Powerful Code Editor written in Rust (翻译：使用Rust编写的快速、强大的代码编辑器)

3

AI-powered multi-agent builder

4

OCRmyPDF adds an OCR text layer to scanned PDF files, allowing them to be searched

5

Find vulnerabilities, misconfigurations, secrets, SBOM in containers, Kubernetes, code repositories, clouds and more (翻译：容器映像、文件系统和 Git 存储库中的漏洞以及配置问题和硬编码机密的扫描程序)

6

Linux, Jenkins, AWS, SRE, Prometheus, Docker, Python, Ansible, Git, Kubernetes, Terraform, OpenStack, SQL, NoSQL, Azure, GCP, DNS, Elastic, Network, Virtualization. DevOps Interview Questions (翻译：包含Linux、Jenkins、AWS、SRE、Prometheus、Docker、Python、Ansible、Git、Kubernetes、Terraform、OpenStack、SQL、NoSQL、Azure、GCP、DNS、弹性、网络、虚拟化等DevOps 面试问题)

7

A collection of inspiring lists, manuals, cheatsheets, blogs, hacks, one-liners, cli/web tools and more. (翻译：这个存储库是我每天在工作中使用的各种材料和工具的集合。)

8

Collection of leaked system prompts

9

A one-of-a-kind resume builder that keeps your privacy in mind. Completely secure, customizable, portable, open-source and free forever. Try it out today! (翻译：Reactive Resume 是一款免费开源的简历生成器，支持定制和移植、安全、开源且永久免费。赶紧试试吧！)

10

21 Lessons, Get Started Building with Generative AI 🔗 https://microsoft.github.io/generative-ai-for-beginners/ (翻译：12 节课程，开始使用生成式 AI 进行构建)

11

AI Notepad for back-to-back meetings. Local-first & Extensible.

12

Build Real-Time Knowledge Graphs for AI Agents

13

Your AI second brain. Self-hostable. Get answers from the web or your docs. Build custom agents, schedule automations, do deep research. Turn any online or local LLM into your personal, autonomous AI (gpt, claude, gemini, llama, qwen, mistral). Get started - free.

14

科技爱好者周刊，每周五发布

15

Dify is an open-source LLM app development platform. Dify's intuitive interface combines AI workflow, RAG pipeline, agent capabilities, model management, observability features and more, letting you quickly go from prototype to production.