[發問] 如何取得sheet1每一欄的資料每隔5筆複製到sheet2

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-5-2 14:47 | 顯示全部帖子

如題

例如上圖為sheet1的資料
我想要複製上面兩列到sheet2
然後在將下面的值每五格取一個直到sheet2
執行到最後一列最後一欄如下圖
每次資料可能列數或欄數不同
該怎麼寫呢...?

VBA新手一直失敗只能執行到第二欄就停止...

2^#

發表於 2016-5-3 06:33 | 顯示全部帖子

感謝!!!目前這樣資料數執行沒有問題

但每次可能資料數不同也有可能會A:X都有資料
這個執行後只能執行a欄到d欄看巨集是寫[A1

2]
是否可以用End()的指令

我好像權限不夠無法下載壓縮檔

3^#

發表於 2016-5-3 11:27 | 顯示全部帖子

成功了!!謝謝~
而且執行起來很快!!

靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。