使用表中的值列表和更新值创建表单？

Question

我在开发创建多个工作表的代码时遇到了麻烦，并且工作表名称是从其他工作表中的列表中获取的，然后在创建的工作表中，需要从表中更新一些字段。我的意思是第一个创建的工作表，从主工作表单元格A1复制的值（例如），以及下一个创建的工作表，从主工作表单元格A2复制的值并一直到最后。

我开发的代码，直到它成功地复制它，但我不知道如何替换表中的单元格值。

我不知道它是多么具有挑战性，但任何帮助将不胜感激。

Set MyRange = Range(Cells(6, 3), Cells(6, 3).End(xlToRight)) 

还要考虑MO：

感谢 萨拉特

我当前的代码

Sub create_sheets() 

Dim MyCell As Range, MyRange As Range 

Set MyRange = Sheets("input data").Range("C6") 
Set MyRange = Range(MyRange, MyRange.End(xlToRight)) 

For Each MyCell In MyRange 

Sheets("200L_50°C").Copy After:=Sheets(Sheets.Count) 'creates a new worksheet 
Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet 

Next MyCell 

End Sub 

Answer 1

首先，这

Set MyRange = Sheets("input data").Range("C6") 
Set MyRange = Range(MyRange, MyRange.End(xlToRight)) 

可以在同一行中完成再强大的版本：

Set MyRange = Range(Cells(6, 3), Cells(6, Columns.Count).End(xlToLeft)) 

已经落户这一点，创建表，我宁愿用.Add方法：

Dim i As Long: i = 1 
For Each MyCell in MyRange 
    Sheets.Add After:=Sheets(Sheets.Count) 
    Sheets(Sheets.Count).Name = MyCell.Value 
    'copy the value from main Worksheet - from A1, A2, etc. 
    'to A1 in new worksheet - it remains first sheet I assume 
    Sheets(Sheets.Count).Cells(1, 1).Value = Sheets(1).Cells(i, 1).Value 
    i = i + 1 
Next MyCell 

此外，使用Sheet(1)是不必要的，因为我们不需要激活或选择任何其他表。