作者ldneye (ldn)
看板Visual_Basic
標題Re: [VBA ] 抓取不同sheets裡的資料
時間Thu Oct 31 23:32:31 2013
這裡是我的程式碼
也許能夠比較清楚表達我想做的事情
請大家過目
謝謝
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
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 217.196.242.170
※ 編輯: ldneye 來自: 217.196.242.170 (10/31 23:52)