錦子老師

邵友亮：錦子老師您好，請問: 我有一個工作表1與工作表2想進行合併複製貼上，想要的流程如下：似乎要用雙迴圈，但我寫不出來＠＠"，想請教。謝謝！

1.工作表1的C2儲存格內容複製到工作表2的B2儲存格開始連續向下貼上30個。

2.工作表1的C3儲存格內容複製到工作表2從上面接續1.的B欄最後一個儲存格下一格開始繼續貼上30個。

3.以此類推。

錦子老師：做法如下：

步驟1：按ALT+F11鍵，開啟女VBA視窗。

步驟2：點取「插入 > 模組」指令，增加一個空白模組表。

步驟3：輸入如下程序(由海綿寶寶提供,局部修改而成)：

Option Explicit

Const kRowCount = 30

Sub Main()

    Dim nI

    For nI = 2 To 6

        OneCopy (nI)

    Next nI

End Sub

Sub OneCopy(ByVal pIdx As Integer)

    Dim nRowBegin, nRowEnd

    nRowBegin = 2 + (pIdx - 2) * kRowCount

    nRowEnd = nRowBegin + kRowCount - 1

    Sheets("工作表2").Select

    Range("C" & pIdx).Select

    Selection.Copy

    Sheets("工作表1").Select

    Range("B" & nRowBegin).Select

    ActiveSheet.Paste

    Range("B" & nRowBegin & ":B" & nRowEnd).Select

    Selection.FillDown

End Sub

步驟4：按ALT+F4鍵關閉VBA視窗，回到活頁簿。

步驟5：點取「檢視 > 巨集」圖示。

步驟6：在【巨集】對話方塊，點取「MAIN」項目，再點取「執行」鈕。

執行結果(每筆顯示3列)：

以上就是今天主要學習的知識點，希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

更多相關影片教學：請點我

更多相關文章：請點我