将数据从一个工作表复制到另一个工作表而无需格式化，还可以使用单元格组织副本

编程问答 2022-06-06

问题描述

因此，我正在研究一个Excel工作表，该工作表将测试的分数保存到另一工作表的历史数据中。我在网上找到了一个宏，可以将其添加到其中。

当前代码：

Sub Savescores()

    Dim rngSource As Range
    Dim rngTarget As Range
    Dim iRow As Integer

    Set rngSource = Worksheets("Sheet1").Range("SourceData")
    iRow = Worksheets("Sheet2").Cells(Rows.Count,1).End(xlUp).Row + 1
    Set rngTarget = Worksheets("Sheet2").Range("A" & iRow)
    rngSource.copy Destination:=rngTarget

End Sub

现在，此代码可以很好地用于网站说明的目的。从一个工作表复制到另一个工作表到第一个未使用的单元格。

我要添加的是以下两个功能：

  1. 在数据上方添加一个单元格，以提供类似于“进行以下测试的时间：10月10日”
  2. 在复制数据之前，删除C列中没有信息的数据。

这是我第一次在Excel文档中使用VBA，因此我不确定是否应该在Savescores（）中全部使用它，或者我是否应该创建多个宏，然后在按下按钮时运行它们。

干杯！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelexcel-2010vba