返回列表 上一主題 發帖

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-11-9 16:14 | 顯示全部帖子
回復 1# sandra_wang
  1. Sub Ex()
  2.     Dim Place%, Place_Row%, i%
  3.     Place = 214
  4.     Place_Row = 10
  5.     With ActiveSheet
  6.         If .Cells(Rows.Count, Place).End(xlUp).row >= Place_Row Then
  7.             .Range(.Cells(Place_Row, Place), .Cells(Rows.Count, Place).End(xlUp)).Resize(, 6).Clear
  8.         End If
  9.         For i = 179 To 179 + (7 * 4) Step 7
  10.             .Range(.Cells(Place_Row, i), .Cells(Rows.Count, i).End(xlUp)).Resize(, 6).Copy .Cells(Rows.Count, Place).End(xlUp).Cells(2, 1)
  11.         Next
  12.     End With
  13. End Sub
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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

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-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

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題