从列值创建工作表，并在每个工作表的特定单元格的列中插入值答案

【问题标题】：Create Sheets from column values, and insert values in column in specific cells on each sheet从列值创建工作表，并在每个工作表的特定单元格的列中插入值
【发布时间】：2019-05-16 00:32:40
【问题描述】：

我找到了一个宏，它读取“工作表插入”的 A 列中的值，根据这些值创建单独的工作表，然后将“模板”复制到每个新页面。

Sub NewSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Set ws = Sheets("Template")
Set sh = Sheets("Sheets Insert")
Application.ScreenUpdating = 0

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Sheets("Template").Copy Before:=sh
        ActiveSheet.Name = sh.Range("A" & i).Value
Next i
End Sub

效果很好。

所以下一步对我来说是在“工作表插入”的 A 列中获取创建工作表的值，并将该值插入到创建的工作表的 G3 处。

然后我需要它在“Sheets Insert”的B列中的同一行中取值并将其复制到该页面上的C3中。

例如：

“表格插入”

Column A   |   Column B

Motor A         12345
Motor B         23456

代码创建工作表 Motor A 并将 Motor A 粘贴到 [g3] 并将 12345 粘贴到 Motor A 工作表上的 [c3]。

代码创建表电机 B 并将电机 B 粘贴到 [g3] 并将 23456 粘贴到电机 B 表上的 [c3]。

等等。我搜索了几个小时，但没有运气。希望有人可以提供帮助。谢谢。

【问题讨论】：

从录制宏开始，看看如何更改输出以使其可重复使用。你 ctrl+C-V'd 一些代码并不意味着你现在被卡住了——据我所知，还没有尝试过，而且 SO 不是免费的编码服务。不要试图否定，我不会对此投反对票，但请告诉我们为什么你没有设法让“通过代码复制粘贴”工作。您当前的尝试表现如何，期望的行为是什么？换句话说 - 你被困在哪里了？并且“我还没有找到比我更准确的工作的人”不是一个可以坚持的地方。
伙计，我只是一个想整理电子表格的人。这不是我的工作或任何事情。我已经超出了我的深度。我尝试录制宏，但我什至不知道如何添加它。我可以在接下来的一年里弄清楚我在做什么，这样我就可以拼凑一个电子表格，或者我可以寻求帮助。所以就像我说的，代码从列创建页面，但我不知道如何从两列复制到特定单元格。
我从教程中学到了一些东西，这些教程对我进行了一些其他修复，所以即使有人想给我指点一个教程，这样我就可以自己修复它，那会很好。

标签： excel vba

【解决方案1】：

如果我理解你的问题，你必须添加两行代码：

Sub NewSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Set ws = Sheets("Template")
Set sh = Sheets("Sheets Insert")
Application.ScreenUpdating = 0

For i = 2 To Range("A" & rows.count).End(xlUp).Row
        Sheets("Template").Copy Before:=sh
        ActiveSheet.Name = sh.Range("A" & i).Value

        'add code
        Range("G3") = sh.Range("A" & i) 'copy name into cell G3
        Range("C3") = sh.Range("B" & i) ' copy data into cell C3
Next i
End Sub

希望对你有帮助

【讨论】：

你是个传奇人物。非常感谢您抽出时间费迪南多。效果很好。
不客气@lenovomonitor...如果您认为答案有用，可以投票...谢谢