根据date和单元格值在表格之间复制Excel数据

如果“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