[發問] 不同欄位的資料，要如何堆疊到同一個表格?

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-11-9 16:14 | 只看該作者

Sub yy()
Cells(9, 179).CurrentRegion.Copy Cells(9, 214)
For i = 186 To 212 Step 8
Cells(9, i).CurrentRegion.Offset(1, 0).Copy Cells(9, 214).End(4)(2, 1)
Next
End Sub

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2010-11-9 16:14 | 只看該作者

回復 1# sandra_wang

Sub Ex()
Dim Place%, Place_Row%, i%
Place = 214
Place_Row = 10
With ActiveSheet
If .Cells(Rows.Count, Place).End(xlUp).row >= Place_Row Then
.Range(.Cells(Place_Row, Place), .Cells(Rows.Count, Place).End(xlUp)).Resize(, 6).Clear
End If
For i = 179 To 179 + (7 * 4) Step 7
.Range(.Cells(Place_Row, i), .Cells(Rows.Count, i).End(xlUp)).Resize(, 6).Copy .Cells(Rows.Count, Place).End(xlUp).Cells(2, 1)
Next
End With
End Sub

複製代碼

帖子: 31
主題: 10
精華: 0
積分: 49
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2010-10-27
最後登錄: 2011-10-14

4^#

發表於 2010-11-10 12:45 | 只看該作者

To#2 & #3的回覆唷~~解決我的問題了! 謝謝你們!!

To #2 oobird
想請教你~Cells(9, i).CurrentRegion.Offset(1, 0).Copy Cells(9, 214).End(4)(2, 1)
裡面的End(4)(2, 1)是什麼意思呢??

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2010-11-10 14:07 | 只看該作者

End(4)(2, 1)
相當於按ctrl+向下鍵，然後再按一個向下鍵。

帖子: 31
主題: 10
精華: 0
積分: 49
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2010-10-27
最後登錄: 2011-10-14

6^#

發表於 2010-11-10 16:47 | 只看該作者

謝謝oobird的解答~

帖子: 31
主題: 10
精華: 0
積分: 49
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2010-10-27
最後登錄: 2011-10-14

7^#

發表於 2010-11-26 09:39 | 只看該作者

[版主管理留言]

GBKEE(2010-11-26 14:28): 已刪掉你重發的文

本帖最後由 sandra_wang 於 2010-11-26 09:41 編輯

To oobird:
我今天用你提供的答覆去跑資料的時候有發現問題...
可以請你幫我看一下嗎?

當資料如附件(資料堆疊問題(To oobird ).zip)那樣的時候，巨集就不能跑了!!

資料堆疊問題(To oobird ).zip (26.29 KB)

帖子: 31
主題: 10
精華: 0
積分: 49
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2010-10-27
最後登錄: 2011-10-14

8^#

發表於 2010-11-26 09:56 | 只看該作者

[版主管理留言]

GBKEE(2010-11-26 14:20): 已刪掉你重發的文

To GBKEE:
我今天使用你提供的答覆跑資料的時候也發現一個問題，
當我第10行的資料是空白的時候，它會把第9行的資料(表格名稱)抓取過去欄位214-219
請問我要怎樣才能避免資料有空白的時候，表格名稱會被抓過去呢?
可以請你幫我看看附件(資料堆疊問題(To GBKEE).zip)嗎?

資料堆疊問題(To GBKEE).zip (54.1 KB)

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2010-11-26 11:03 | 只看該作者

沒看懂你的目的。
Cells(9, m).CurrentRegion.Offset(1, 0).根本沒資料。

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2010-11-26 14:22 | 只看該作者

回復 8# sandra_wang
For i = 179 To 179 + (7 * 4) Step 7
          If .Cells(Place_Row, i) <> "" Then  '加上條件不是空白時
               .Range(.Cells(Place_Row, i), .Cells(Rows.Count, i).End(xlUp)).Resize(, 6).Copy .Cells(Rows.Count, Place).End(xlUp).Cells(2, 1)
          End If
Next