這裡是我的程式碼
也許能夠比較清楚表達我想做的事情
請大家過目
謝謝
Private Sub CommandButton1_Click()
Sheets("Return").Select
finalrow = ActiveSheet.UsedRange.Rows.Count
Sheets("2006_1").Select
finalrow06 = ActiveSheet.UsedRange.Rows.Count
For j = 2 To finalrow06
For i = 1 To finalrow -5
If Sheets("2006_1").Cells( j,1) = Sheets("Return").Cells(i,1) Then
Sheets("Return").Select
Sheets("Return").Range(Range("A" & i + 2), Range("A" & i + 2).Offset(0,
12)).Copy
With Sheets("2006_1")
.Select
.Range(Range("B" & j), Range("B" & j).Offset(0, 12)).Select
End With
ActiveSheet.Paste
Sheets("2006_1").Select
End If
Next
Next
End Sub