比较两个工作表和复制行数据

Question

我想在一个工作簿中比较两个工作表。一些伪：

如果上Worksheet2 Worksheet1 =小区A和
小区A如果细胞F于 Worksheet1 <>细胞F于Worksheet2然后
复印从Worksheet2 行通过行上Worksheet1否则
如果上Worksheet1 <小区A>细胞上Worksheet2然后
复印从Worksheet2行到下一个空行上 Worksheet1

甲

这是我到目前为止有：

Sub CopyCells() 
Dim sh1 As Worksheet, sh2 As Worksheet 
Dim j As Long, i As Long, lastrow1 As Long, lastrow2 As Long 


Set sh1 = Worksheets("Sheet1") 
Set sh2 = Worksheets("Sheet2") 

lastrow1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row 
lastrow2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row 

For i = 2 To lastrow1 
    For j = 1 To lastrow2 
     If sh1.Cells(i, "A").Value = sh2.Cells(j, "A").Value And sh1.Cells(i, "F").Value <> sh2.Cells(j, "F").Value Then 
      sh1.Cells(i, "F").Value = sh2.Cells(j, "F").Value 
     End If 
    Next j 
Next i 

末次

Answer 1

试试这个：

Sub CopyCells() 
    Dim sh1 As Worksheet, sh2 As Worksheet 
    Dim i As Long, j As Long, lastrow1 As Long, lastrow2 As Long, counter As Long 

    Set sh1 = Worksheets("Sheet1") 
    Set sh2 = Worksheets("Sheet2") 

    lastrow1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row 
    lastrow2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row 
    counter = 1 

    For i = 1 To lastrow1 
     For j = 1 To lastrow2 
      If sh1.Range("A" & i) = sh2.Range("A" & j) And sh1.Range("F" & i) <> sh2.Range("F" & j) Then 
       sh2.Range("A" & j).EntireRow.Copy Destination:=sh1.Range("A" & i) 
      ElseIf sh1.Range("A" & i) <> sh2.Range("A" & j) Then 
       sh2.Range("A" & j).EntireRow.Copy Destination:=sh1.Range("A" & lastrow1 + counter) 
       counter = counter + 1 
      End If 
     Next j 
    Next i 
End Sub