[發問] 錄製後迴圈設定及插入複製的儲存格是否可以不插入圖案

想請問站上的前輩們
我有一錄製的巨集想做InputBox數量迴圈
請問該如何編寫

Sub 新增數量()
Rows("1:47").Select
Selection.Copy
Rows("48:48").Select
Selection.Insert Shift:=xlDown
Range("A4").Activate
End Sub

複製代碼

還有我在上面的巨集中，負制的範圍有包含到圖片圖案
是否有不插入圖片圖案的方式
因為直接從48行插入，就不需要做行數判定，可以選擇格式設定

以上問題再請大大幫忙，感謝~

樓主熱帖

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

2^#

發表於 2016-6-7 14:58 | 顯示全部帖子

本帖最後由 jackson7015 於 2016-6-7 15:01 編輯

回復 2# jackyq
回復 3# ML089
感謝jackyq及ML089回覆

jackyq大大的測試後可以使用，但是需要多幾個步驟，所以之後有類似的需求可以再使用，感謝~

ML089大大的寫法，好像無法將格式所有複製，因為儲存格內文字大小及跨欄置中都沒有出現
因為有部分儲存格內有填入顏色，是否也可以以插入的方式做處理?
謝謝~

TOP

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

3^#

發表於 2016-6-8 15:25 | 顯示全部帖子

回復 6# jackyq
感謝jackyq大大熱心的幫忙
7、13的確可以使用；所有格式都能[貼上]
且不會帶入圖形

可是小弟需要的功能是以插入複製儲存格的方式
這樣不用再判斷要多少格在[貼上]
因為需要的頁數每次不定
所以想要先出現InputBox詢問插入多少次
然後做迴圈式的重覆插入即可

但是錄製的時候發現[插入複製的儲存格]不能連續動作
複製一次只能插入一次，就需要再複製一次才能繼續動作
所以想請教大大是否有辦法做出連續插入儲存格(不要圖形)的方式

不然可能就要做判斷行數後，以[貼上]的方式做處理了

以上不曉得會不會說得太複雜
再請前輩們看看，感謝~

TOP

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

4^#

發表於 2016-6-14 15:58 | 顯示全部帖子

回復 10# ML089
回復 10# jackyq
先感謝兩位大大的協助！

jackyq大大的方法1.在R_Insert.Insert Shift:=xlDown會出現錯誤，整個程式會關閉，不曉得原因
方法2.插入時會先插入47列的空白，然後才正常插入複製的格式，不曉得哪裡需要更正

ML089大大的公式測試後，發現只有複製的動作，沒有出現貼上或插入的動作

目前想使用方法2的方式把插入次數 = [A2]，然後再做一些判定選項就好了
不過目前大大的公式好像有bug，會出現插入空白列
再請大大幫忙看看是否哪裡有錯誤，感謝~

TOP

jackson7015