帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2013-10-25
最後登錄: 2013-12-2

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-10-25 07:28 | 顯示全部帖子

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

最近剛接觸VBA 所以有些東西還不是很熟
下面這個問題我google一天了還是找不到解決的辦法

我有兩個column 的資料 ( 文字) 分別在不同的工作表

sheet1 : a
               b
               c
               d
               e
               f

sheet2 : a
               1 2 3 4 5
               6 7 8 9 10
               b
               1 2 3 4 5
               6 7 8 9 10
               c
            1 2 3 4 5
            6 7 8 9 10
            e
            1 2 3 4 5
            6 7 8 9 10
            11 12  13  14 15
            f
            1 2 3 4 5
            6 7 8 9  1
            1  12  6  74  8

我想要是設一個迴圈

if sheet1.range("A" & i) = sheet2.range("A" & j )

copy  sheet2.range("A2 : E2")
paste in sheet1.range("B1 :E1")

...

( 也就是在sheet2裡的 a的下面的 1 2 3 4 5 要貼到 sheet1 a 的左邊 ,

  最後迴圈跑完的結果在sheet1是 :

a 1 2 3 4 5
b 1 2 3 4 5
c 1 2 3 4 5
d 1 2 3 4 5
e 1 2 3 4 5
f 1 2 3 4 5

這樣講不知道清不清楚

如果有疑問我還可以再補充

請各位大大教我一下怎麼寫這段程式吧

謝謝

我想要是設一個迴圈

ldneye

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2013-10-25
最後登錄: 2013-12-2

2^#

發表於 2013-10-25 08:32 | 顯示全部帖子

A1
A2 B2 C2 D2 E2

TOP

ldneye

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2013-10-25
最後登錄: 2013-12-2

3^#

發表於 2013-10-31 21:06 | 顯示全部帖子

回復 4# genes

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(1, j) = Sheets("Return").Cells(1, i) Then
S
heets("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

TOP

ldneye

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2013-10-25
最後登錄: 2013-12-2

4^#

發表於 2013-10-31 23:54 | 顯示全部帖子

[版主管理留言]

GBKEE(2013/11/1 06:57): genes 請你附檔,沒有附檔如同瞎子摸象

抱歉
If Sheets("2006_1").Cells(1, j) = Sheets("Return").Cells(1, i) Then

應該是

If Sheets("2006_1").Cells(j,1) = Sheets("Return").Cells( i,1) Then

TOP

ldneye

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2013-10-25
最後登錄: 2013-12-2

5^#

發表於 2013-11-4 00:58 | 顯示全部帖子

example.rar (117.51 KB) 回復 4# genes

謝謝版主提醒因為我還不太習慣這個版的版規如有觸犯請多包涵

已經附上檔案了

我想要把第二個sheet ( Return) 裡面 2005 年的 return , 一月份到十二月份的資料複製貼上到 sheet( 2006_1) 對應到相同名字的右邊

我的程式碼不知到哪邊出了問題

上網看了很久也看不出個所以然來

所以想請各位網路上好心的大大指點迷津

謝謝

如果還有觸犯版規的地方也請不吝告知我會遵守的

TOP

ldneye

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2013-10-25
最後登錄: 2013-12-2

6^#

發表於 2013-11-10 00:48 | 顯示全部帖子

感謝前輩，我知道我的錯在哪裡了，就是公司名稱不對。
我以為兩個cells 裡面的文字不用完全一樣只要相似就可以複製貼上( 甚至連前面有空格都不行 = = )

還有一個問題
就是我是想要把每間公司2005年的資料複製貼上到sheets 2006
但是由於他每個公司的資料開始的時間都不一樣，有的是從2002年開始，有的是從2005年開始
，甚至有的沒有資料！沒有辦法用 row + i 的方式推算出來，不知道前輩有沒有什麼更好的方法呢?
謝謝囉

TOP

ldneye

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2013-10-25
最後登錄: 2013-12-2

7^#

發表於 2013-11-18 19:39 | 顯示全部帖子

回復 10# GBKEE

謝謝，你的code很優雅又快速十分有用

TOP

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]