根据日期和单元格值在工作表之间复制 Excel 数据

【问题标题】：Copy Excel data between sheets based on date & cell value根据日期和单元格值在工作表之间复制 Excel 数据
【发布时间】：2015-04-27 01:42:55
【问题描述】：

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

如果陈述属实，我要复制

“Sheet2:A2”到“Sheet1:A7”，
“Sheet2:F2”到“Sheet1:C7”，
“Sheet2:G2”到“Sheet1:E7”，以及
“Sheet2:H2”到“Sheet1:G7”。

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

【问题讨论】：

标签： excel copy vba

【解决方案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

【讨论】：

+1 但建议将 Sheet2.Range("H1048576").End(xlUp).Row 更改为使用 Rows.Count 自动查找 xl03（65536 行）和 xl07/10（1048576 行）中最后使用的单元格的代码