多列基于重复的值复制行

Question

我有以下表，我想复制的行如果订单ID和合同是一样的

a busy cat http://i57.tinypic.com/2qta42b.jpg

我想获得宏要做到这一点：

a busy cat http://i59.tinypic.com/2vdfc0i.png

难道你们给我推到正确的方向来做到这一点？在此先感谢

Answer 1

可以使此代码更EFFIENT，但这是“推到正确的方向来完成这个” :)

Sub myMacro() 

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
    ' decleration 

    Dim rowData As Integer, rowNew As Integer 
     rowData = 1 
     rowNew = 1 
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
    ' put first two entries 

    Range("H" & rowNew, "J" & rowNew).Value = Range("A" & rowData, "C" & rowData).Value 
    rowNew = rowNew + 1 
    rowData = rowData + 1 

    Range("H" & rowNew, "J" & rowNew).Value = Range("A" & rowData, "C" & rowData).Value 
    rowNew = rowNew + 1 
    rowData = rowData + 1 
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
    ' loop through all of column A entries 

    Do While Range("A" & rowData).Value <> "" 

     ' similar entry found 
     If Range("A" & rowData).Value = Range("A" & rowData - 1).Value Then 

      Range("H" & rowNew, "J" & rowNew).Value = Range("A" & rowData, "C" & rowData).Value 
      rowNew = rowNew + 1 
      rowData = rowData + 1 

     ' similar entry Not found 
     Else 

      rowNew = rowNew + 1 
      Range("H" & rowNew, "J" & rowNew).Value = Range("A1:C1").Value 
      rowNew = rowNew + 1 

      Range("H" & rowNew, "J" & rowNew).Value = Range("A" & rowData, "C" & rowData).Value 
      rowNew = rowNew + 1 
      rowData = rowData + 1 

     End If 

    Loop 
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 

End Sub