根據日期和單元格值在工作表之間複製Excel數據

如果「Sheet2」上的列「H」中的值爲而非等於「0」，我想將單元格數據從「Sheet2」複製到「Sheet1」零）。根據日期和單元格值在工作表之間複製Excel數據

如果語句是真的，我想複製

「Sheet2中：A2」到「工作表Sheet1：A7」，
「Sheet2中：F2」到「工作表Sheet1：C7」，
「Sheet2：G2」到「Sheet1：E7」和
「Sheet2：H2」到「Sheet1：G7」。

然後我想遍歷「Sheet2」上剩餘的行並繼續複製，直到工作表中的數據用完。

2011-12-19 Rob Crawley

使用下面的代碼

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

來源

2011-12-20 01:30:50 Ian

+1，但會建議改變'Sheet2.Range（「H1048576」）。完（xlUp）.Row'到使用Rows.Count自動找到最後使用的代碼細胞在x103（65536行）和x107/10（1048576行） – brettdj 2011-12-25 03:20:31

根據日期和單元格值在工作表之間複製Excel數據

回答

相關問題