根据另一个工作表VBA中的值填充新工作表中的记录

，可以通过以下步骤实现：

1. 首先，需要在VBA中引用Microsoft Excel对象库，以便能够操作Excel工作表和单元格。在VBA编辑器中，选择"工具" -> "引用"，勾选"Microsoft Excel XX.X 对象库"，点击确定。
2. 创建一个新的工作表，可以使用Sheets.Add方法或者Worksheets.Add方法来添加一个新的工作表。
3. 在VBA中，可以使用Worksheets对象来引用工作表。通过Worksheets("Sheet1")可以引用名为"Sheet1"的工作表。如果需要根据索引引用工作表，可以使用Worksheets(1)，其中1表示第一个工作表。
4. 使用Range对象来引用工作表中的单元格。例如，Worksheets("Sheet1").Range("A1")引用了"Sheet1"工作表中的A1单元格。
5. 获取源工作表中的数据。可以使用Range对象的Value属性来获取单元格的值。例如，Worksheets("Sheet1").Range("A1").Value获取了"Sheet1"工作表中A1单元格的值。
6. 将源工作表中的数据填充到新工作表中。可以使用Range对象的Value属性来设置单元格的值。例如，Worksheets("Sheet2").Range("A1").Value = Worksheets("Sheet1").Range("A1").Value将"Sheet1"工作表中A1单元格的值填充到"Sheet2"工作表中的A1单元格。
7. 可以使用循环结构（如For循环或Do While循环）来遍历源工作表中的数据，并将其逐行或逐列填充到新工作表中的相应位置。

以下是一个示例代码，演示了如何根据另一个工作表VBA中的值填充新工作表中的记录：

Sub FillNewWorksheet()
    Dim sourceSheet As Worksheet
    Dim newSheet As Worksheet
    Dim sourceRange As Range
    Dim newRange As Range
    Dim i As Integer
    
    ' 获取源工作表和新工作表的引用
    Set sourceSheet = Worksheets("Sheet1")
    Set newSheet = Worksheets.Add
    
    ' 获取源工作表中的数据范围
    Set sourceRange = sourceSheet.Range("A1:B10")
    
    ' 将源工作表中的数据填充到新工作表中
    Set newRange = newSheet.Range("A1")
    For i = 1 To sourceRange.Rows.Count
        newRange.Resize(1, sourceRange.Columns.Count).Value = sourceRange.Rows(i).Value
        Set newRange = newRange.Offset(1, 0)
    Next i
End Sub

在上述示例代码中，假设源工作表为"Sheet1"，数据范围为A1:B10。新工作表通过Worksheets.Add方法创建，并将源工作表中的数据逐行填充到新工作表中。

这是一个简单的示例，实际应用中可能需要根据具体需求进行适当的修改和扩展。