返回列表 上一主題 發帖

關於想把資料貼在一行的程式

blueteddy

帖子
5 
主題
4 
精華
0 
積分
9 
點名
0  
作業系統
Window2003 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
註冊時間
2011-8-4 
最後登錄
2011-10-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-4 08:29 | 只看該作者

關於想把資料貼在一行的程式

複製貼上
各位大大好

想請問一下

如果我有一組資料

如     A     B      C  三個Column下  分別有一些數字
      1      4       7
        2      5       8  
        3      6       9

我要怎麼寫VBA 把他整理成都貼在A Column下
如    A
        1
        2
        3
        4
       ....
        9

因為實際資料比較多Column 所以會想請問如何寫在vba裡面呢?

謝謝各位大大
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2011-8-4 08:43 | 只看該作者
For c = 2 To [iv1].End(1).Column
Columns(c).SpecialCells(2).Cut [a65536].End(3)(2, 1)
Next

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題