返回列表下一主題上一主題發帖

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

sandra_wang

小學生 Rank: 1

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

中學生 Rank: 2

帖子: 88
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-3
最後登錄: 2017-12-31

12^#

發表於 2012-1-4 19:49 | 只看該作者

我想到的概念是先用條件判斷把資料抓到其他工作表，然後再貼回來，因為沒權限不能下載檔案，只能想想概念。可能是我現在只會用if判斷然後再貼回來，所以很多問題都被我看成這樣的問題。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

超級版主 Rank: 8 Rank: 8

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