根据日期和单元格值在工作表之间复制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