将数据从工作表填充到另一工作表的宏答案

【问题标题】：Macro to fill data from sheet to another sheet将数据从工作表填充到另一工作表的宏
【发布时间】：2023-01-11 03:07:44
【问题描述】：

嗨，我创建了宏，它根据用户输入打开工作表，我需要的是一旦打开新工作表我有一些用户需要填写这些数据的字段（不同主题标记）并使用公式计算百分比然后我需要将这些数据填写到另一个名为“数据”的工作表而不覆盖以前的数据？。请建议如何在不覆盖 vba 的情况下添加数据。

Sub open_sheet()
Dim sourcesheet As Worksheet
Dim ClassA As Worksheet
Dim ClassB As Worksheet
Dim ClassC As Worksheet

Set sourcesheet = Sheets("Main")
Set ClassA = Sheets("Class A")
Set ClassB = Sheets("Class B")
Set ClassC = Sheets("Class C")

If sourcesheet.Range("Class").Value = "Class A" Then
Worksheets("Class A").Activate
ElseIf sourcesheet.Range("Class").Value = "Class B" Then
Worksheets("Class B").Activate
Else:
Worksheets("Class C").Activate
End If
End Sub

【问题讨论】：

标签： excel vba

【解决方案1】：

通常，这是一种将信息附加到表格的方法。我只想将您的平均计算结果放在表格的总计行中。

Option Explicit
Sub FillNewRow1()
    
    Dim Class_A As Worksheet
    Dim ClassName As String
    Dim DataRange
    Dim lRow As Long
    
    ClassName = Worksheets("Master").Range("B2").Value
    Set Class_A = ThisWorkbook.Worksheets(ClassName)
    DataRange = Worksheets("Master").Range("B5:B8")
    
    lRow = Class_A.Range("A" & Rows.Count).End(xlUp).Row + 1
    Class_A.Range("A" & lRow).Resize(1, UBound(DataRange, 1)).Value = _
    Application.Transpose(DataRange)
    
End Sub

但是鉴于我们不知道您的目标数据源是什么样的，这是我能提供的最好帮助。

【讨论】：