返回列表 上一主題 發帖

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

yaya1986

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
windowsXP 
軟體版本
office2007 
閱讀權限
10 
註冊時間
2016-5-2 
最後登錄
2016-5-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-5-2 14:47 | 只看該作者

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

如題



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



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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2016-5-2 21:53 | 只看該作者
如題
例如上圖為sheet1的資料
我想要複製上面兩列到sheet2
然後在將下面的值每五格取一個直到shee ...
yaya1986 發表於 2016-5-2 14:47
  1. Sub nn()
  2.   Dim lSRow&, lTRow&
  3.   Dim rTar As Range
  4.   Dim wsTar As Worksheet
  5.   
  6.   Set wsTar = Sheets("Sheet2")
  7.   
  8.   With Sheets("Sheet1")
  9.     wsTar.Cells.Clear
  10.     .[A1:D2].Copy wsTar.[A1]
  11.     lTRow = 7
  12.     lSRow = 3
  13.     Set rTar = .Cells(lTRow, 1)
  14.     While rTar + rTar.Offset(, 1) + rTar.Offset(, 2) + rTar.Offset(, 3) <> 0
  15.       rTar.Resize(, 4).Copy wsTar.Cells(lSRow, 1)
  16.       lSRow = lSRow + 1
  17.       lTRow = lTRow + 5
  18.       Set rTar = .Cells(lTRow, 1)
  19.     Wend
  20.   End With
  21. End Sub
複製代碼
每隔5筆複製-a.zip (7.59 KB)

TOP

yaya1986

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
windowsXP 
軟體版本
office2007 
閱讀權限
10 
註冊時間
2016-5-2 
最後登錄
2016-5-3 
3#
發表於 2016-5-3 06:33 | 只看該作者
感謝!!!目前這樣資料數執行沒有問題

但每次可能資料數不同也有可能會A:X都有資料
這個執行後只能執行a欄到d欄 看巨集是寫[A12]
是否可以用End()的指令

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

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
4#
發表於 2016-5-3 10:46 | 只看該作者
Sub TEST()
Dim R&, i&, xH As Range
Sheets("Sheet2").UsedRange.Clear
Set xH = [Sheet2!A1]
With Sheets("Sheet1")
　　　.[1:2].Copy xH
　　　Set xH = xH(3)
　　　For i = 7 To .UsedRange.Rows.Count Step 5
　　　　　.Rows(i).Copy xH
　　　　　Set xH = xH(2)
　　　Next
End With
End Sub

TOP

yaya1986

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
windowsXP 
軟體版本
office2007 
閱讀權限
10 
註冊時間
2016-5-2 
最後登錄
2016-5-3 
5#
發表於 2016-5-3 11:27 | 只看該作者


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

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題