12
返回列表 上一主題 發帖

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

sandra_wang

帖子
31 
主題
10 
精華
0 
積分
49 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
10 
性別
女 
註冊時間
2010-10-27 
最後登錄
2011-10-14 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-11-9 15:36 | 只看該作者

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

請問大家:
我有五組資料，分別有n1,n2,n3,n4,n5筆資料，
而且五組資料的比數都不固定(n1,n2,n3,n4,n5沒辦法固定)，
我想要把這五組資料依序堆疊到右邊的表格(214-219列)，
請問我應該怎麼做呢? 麻煩大家了!

資料堆疊問題.zip (4.07 KB)

收藏 分享

yagami12th

帖子
88 
主題
13 
精華
0 
積分
104 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2012-1-3 
最後登錄
2017-12-31 
12#
發表於 2012-1-4 19:49 | 只看該作者
我想到的概念是先用條件判斷把資料抓到其他工作表，然後再貼回來，因為沒權限不能下載檔案，只能想想概念。可能是我現在只會用if判斷然後再貼回來，所以很多問題都被我看成這樣的問題。

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11#
發表於 2010-11-26 14:40 | 只看該作者
回復 7# sandra_wang
會發生錯誤 同8樓問題 遇到沒資料時
Cells(9, 218).End(4)  會到檔案最底列的位置 2003 的ROWS.COUNT 為65536
Cells(9, 218).End(4)(2, 1) 是檔案最底列下移1列的位置 =65537 所以產生錯誤
改成由檔案最底列往上到有資料列的下一列試試看
Cells(9, m).CurrentRegion.Offset(1, 0).Copy Cells(Rows.Count, 218).End(3)(2, 1)

TOP

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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
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).根本沒資料。

TOP

sandra_wang

帖子
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)

TOP

sandra_wang

帖子
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)

TOP

sandra_wang

帖子
31 
主題
10 
精華
0 
積分
49 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
10 
性別
女 
註冊時間
2010-10-27 
最後登錄
2011-10-14 
6#
發表於 2010-11-10 16:47 | 只看該作者
謝謝oobird的解答~

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
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+向下鍵，然後再按一個向下鍵。

TOP

sandra_wang

帖子
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)是什麼意思呢??

TOP

        靜思自在 : 時時好心就是時時好日。
12
返回列表 上一主題