Question

首先在这里发帖，这个网站过去帮了我很多忙。不是专家，我基本上采用现有的代码并根据我的需要进行调整......我知道我需要了解更多。

对于每日报告，我想获取一组数据并将其粘贴到另一张表中，以获取特定日期。我的代码是（缩短，休息是相同的，大约200次）

Sub FileToDatabase_Click()

Dim selectedDate As String
Dim rangeFound As Range
selectedDate = Sheets("Input").Range("L3")
Set rangeFound = Sheets("Report").Cells.Find(CDate(selectedDate))

‘Insert 101 assays parameters
Dim Pb101 As Double
Dim Zn101 As Double
Dim Cu101 As Double
Dim Fe101 As Double
Dim Ag101 As Double
Pb101 = Sheets("Input").Range("D25")
Zn101 = Sheets("Input").Range("E25")
Cu101 = Sheets("Input").Range("F25")
Fe101 = Sheets("Input").Range("G25")
Ag101 = Sheets("Input").Range("H25")

If IsEmpty(rangeFound.Offset(0, 1)) = True Then

rangeFound.Offset(0, 2) = Pb101
rangeFound.Offset(0, 3) = Zn101
rangeFound.Offset(0, 4) = Cu101
rangeFound.Offset(0, 5) = Fe101
rangeFound.Offset(0, 6) = Ag101

End If
End Sub

此代码有效，但使用＆gt; 200值需要很长时间。所以我想的是将公式放在我的“输入”表中，以便按正确的顺序输入我的数据，并将该行移到我的“报告”表单上的正确日期。 “输入”表有一个表和一些简单的计算。

在这个网站上挖掘，我想我可能需要这样的东西：

Sub Normalize()

Sheets("Sheet2").Range("A1:A65").Value = Sheets("Sheet1").Range("A2:A66").Value

End Sub

我不确定如何在第二张纸上设置我的范围以匹配正确的日期。

由于

粘贴范围与偏移

0 个答案: