indirect, row向下覆制 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » indirect, row向下覆制

返回列表下一主題上一主題發帖

[發問] indirect, row向下覆制

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

1^# 跳轉到 »

發表於 2015-8-1 17:38 | 顯示全部帖子

看不到附件僅供參考
將A欄資料每個儲存格複製30次到B欄

Sub test()
k = 1
For i = 1 To [A65536].End(xlUp).Row
Cells(k, 2).Resize(30, 1) = Cells(i, 1)
k = k + 30
Next
End Sub

複製代碼

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

2^#

發表於 2015-8-1 17:44 | 顯示全部帖子

很多Sheets都要做同樣複製

Sub test()
For j = 1 To Sheets.Count
Sheets(j).Select
k = 1
For i = 1 To [A65536].End(xlUp).Row
Cells(k, 2).Resize(30, 1) = Cells(i, 1)
k = k + 30
Next
Next
End Sub

複製代碼

靜思自在 : 人要自愛，才能愛普天下的人。

返回列表下一主題上一主題