如何利用迴圈，可以自動複製貼上特定次數

excel vba for迴圈

joe700619 2022-11-22 00:58:55 ‧ 1582 瀏覽

分享至

例如，三米公司要貼上4次，李四公司要貼上2次，老王公司要貼上3次，如何利用迴圈做到?

公司名稱次數
三米公司 4
李四公司 2
老王公司 3

三米公司
三米公司
三米公司
三米公司
李四公司
李四公司
老王公司
老王公司
老王公司

goodnight iT邦研究生 2 級 ‧ 2022-11-24 00:05:51 檢舉

--------

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

copemoe

iT邦好手 3 級 ‧ 2022-11-22 09:51:45

可以參考這幾篇
VBA複製貼上的迴圈功能
 Excel VBA 程式設計教學：迴圈控制，For Loop、For Each 與 Do Loop

回應
分享
檢舉

登入發表回應

johncoc

iT邦新手 3 級 ‧ 2022-11-22 10:47:50

    Dim i As Integer, current As Integer, ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("工作表1")
    i = 2
    current = 0
    While ws.Cells(i, 1) <> ""
        ws.Range(Cells(current + 1, 4), Cells(current + ws.Cells(i, 2).Value, 4)) = ws.Cells(i, 1).Value
        current = current + ws.Cells(i, 2).Value
        i = i + 1
    Wend

回應
分享
檢舉

登入發表回應

唉踢

iT邦新手 5 級 ‧ 2022-11-23 13:06:16

新版EXCEL有個Xloopup跟Sequence的作法, 可以參考一下喔

回應
分享
檢舉

登入發表回應

我要發表回答

立即登入回答

如何利用迴圈，可以自動複製貼上特定次數

3 個回答

我要發表回答

標記使用者