使用来自表格的信息填充多个工作表

我正在从主表中填写数据的100个实例。 我正在寻找一种方法来实现这一点。

该表单具有NAME和DATE （以及其他）字段我正在寻找创build一个代码，将从主表中的一行，将其填充到单独的工作表上的表单，然后重复下一行和工作表的过程。 例：

工作表1：将从A行拿NAME和DATE
工作表2：将从B行拿NAME和DATE
工作表3：将C行中的NAME和DATE
…

我试图用这个在飞行中学习VB，但到目前为止还没有成功。

Answer 1

对于我的快速尝试工作，您的工作表将需要在末尾（sheet1，sheet2，…）和您的主数据表中名为“MasterData”具有相似的名称与一个递增的数字。 此外，它假定你的名字在列A和date，列B，并且你从第一行开始。

 Sub NameDate() Dim i As Integer For i = 1 To 100 'assuming 100 sheets Sheets("Sheet" & i).Range("A1") = Sheets("MasterData").Range("A" & i) 'placing the name in row i in the Sheet's A1 cell Sheets("Sheet" & i).Range("B1") = Sheets("MasterData").Range("B" & i) 'placing the date in row i in the Sheet's B1 cell Next 'next i = next row for the master data sheet AND the next sheet as well End Sub 

这是非常基本的，高度改进的，如果你不明白，我可以解释它在评论中是如何工作的。

Answer 2

尝试这样的事情：我强烈build议你先在一个单独的工作表上testing这个代码，只用几个“名称”和“date”让我知道这是你需要的还是需要修改的！

用下面的代码创build一个新的button：

 Dim ColumnA As String Dim ColumnB As String Range("A2").Select Do Until IsEmpty(ActiveCell) ColumnA = ActiveCell.Value ColumnB = ActiveCell.Offset(columnOffset:=1).Value ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count) Range("A1").Value = ColumnA Range("B1").Value = ColumnB ThisWorkbook.Sheets("Sheet1").Activate ActiveCell.Offset(rowOffset:=1).Select Loop End Sub