多列基於重複的值複製行

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