作者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)