返回列表 上一主題 發帖

[發問] indirect, row向下覆制

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-7-23 22:18 | 只看該作者

[發問] indirect, row向下覆制

EXCEL QUEST.rar (8.4 KB)
請問如何用INDEX, I,NDIRECT,ROW()將同一資料向下覆制30次, 次後再取另一個資料再向下覆制30次, 如此類推?

:)
收藏 分享

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
8#
發表於 2015-8-2 11:53 | 只看該作者
回復 2# p212


多謝解決問題!

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
7#
發表於 2015-8-1 21:27 | 只看該作者
回復 6# koo

我在檔案內加開了SHEET 1, 內加模組複製你的VBA碼, 但把本身另外SHEET的資料都沒有了. 我應該在那一張SHEET內加模組複製你的VBA碼?

有勞!

TOP

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
6#
發表於 2015-8-1 17:44 | 只看該作者
很多Sheets都要做同樣複製
  1. Sub test()
  2. For j = 1 To Sheets.Count
  3.     Sheets(j).Select
  4.     k = 1
  5.     For i = 1 To [A65536].End(xlUp).Row
  6.         Cells(k, 2).Resize(30, 1) = Cells(i, 1)
  7.         k = k + 30
  8.     Next
  9. Next
  10. End Sub
複製代碼

TOP

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
5#
發表於 2015-8-1 17:38 | 只看該作者
看不到附件僅供參考
將A欄資料每個儲存格複製30次到B欄
  1. Sub test()
  2.     k = 1
  3.     For i = 1 To [A65536].End(xlUp).Row
  4.         Cells(k, 2).Resize(30, 1) = Cells(i, 1)
  5.         k = k + 30
  6.     Next
  7. End Sub
複製代碼

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
4#
發表於 2015-8-1 13:40 | 只看該作者
感謝, 我將所學轉用至下列出勤表, 請問可否用VBA來改寫呢, 因為涉及不止一個工作表, 所以函數已不能應用.


求教:D 資料轉置2.rar (25.39 KB)

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
3#
發表於 2015-7-26 22:34 | 只看該作者
回復 2# p212

多謝解答.

TOP

p212

帖子
618 
主題
17 
精華
0 
積分
663 
點名
1  
作業系統
WINDOWS 7 
軟體版本
OFFICE 2013 
閱讀權限
50 
性別
男 
來自
Pingtung 
註冊時間
2011-9-2 
最後登錄
2024-7-5 

2014馬年全勤獎章2013蛇年全勤獎章熱烈參與勳章
2#
發表於 2015-7-24 09:18 | 只看該作者
本帖最後由 p212 於 2015-7-24 09:24 編輯

回復 1# missbb
數據如1#之範例配置，自A橺取值依序分別複製30次
儲存格C3輸入
=INDEX($A:$A,CEILING((ROW()-2)/30,1)+2)
向下複製公式
請參考！
注：1#之範例檔複製結果個數為「31」，若欲依序分別複製31個，則儲存格C3輸入
=INDEX($A:$A,CEILING((ROW()-2)/31,1)+2)

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題