不同sheet之間抓取資料 - Excel程式區

[發問] 不同sheet之間抓取資料

1^# 跳轉到 »

發表於 2013-10-25 12:19 | 顯示全部帖子

回復 3# ldneye

請附上檔案

2^#

發表於 2013-11-7 03:15 | 顯示全部帖子

回復 7# ldneye

放到module上
2張worksheets公司名不對稱,自己改下code吧

Option Explicit
Sub test1()
Dim finalrow As Integer
Dim finalrow06 As Integer
Dim j As Integer
Dim i As Integer
finalrow = Sheets("Return").UsedRange.Rows.Count
finalrow06 = Sheets("2006_1").UsedRange.Rows.Count
With ActiveWorkbook
For j = 2 To finalrow06
For i = 1 To finalrow - 5
If .Sheets("2006_1").Cells(j, 1).Value = .Sheets("Return").Cells(i, 1).Value Then
'Sheets("Return").Select
.Sheets("Return").Range(Cells(i + 2, 1), Cells(i + 2, 13)).Copy Destination:=.Sheets("2006_1").Range("B" & j)
End If
Next
Next
End With
End Sub

複製代碼

靜思自在 : 多做多得。少做多失。