根据日期和时间在表格之间复制Excel数据细胞价值

Question

如果“Sheet2”中“H”列中的值不等于“0”（零），我想将单元数据从“Sheet2”复制到“Sheet1”。

如果陈述是真的，我想复制

• “Sheet2：A2”至“Sheet1：A7”，
• “Sheet2：F2”到“Sheet1：C7”，
• “Sheet2：G2”到“Sheet1：E7”和
• “Sheet2：H2”至“Sheet1：G7”。

然后我想循环“Sheet2”上的剩余行并继续复制，直到工作表用完数据。

Answer 1

使用以下代码

Sub filldata()
LastRow = Sheet2.Range("H1048576").End(xlUp).Row
i = 2
j = 7

For i = 2 To LastRow

If Sheet2.Range("H" & i).Value <> 0 Then 'the condition to check

Sheet1.Range("A" & j).Value = Sheet2.Range("A" & i).Value
Sheet1.Range("C" & j).Value = Sheet2.Range("F" & i).Value
Sheet1.Range("E" & j).Value = Sheet2.Range("G" & i).Value
Sheet1.Range("G" & j).Value = Sheet2.Range("H" & i).Value
j = j + 1

End If


Next

End Sub