錦子老師

蔡心娟：錦子老師您好，想問一下我有一組資料在A1:E10儲存格，我想把資料逐列自動複製，即例如把A1:E1儲存格內容複製並貼上到F1:J1儲存格，然後自動到下一列複製A2:B2儲存格，如此類推，直到最後一列即A10:E10儲存格，然後再重覆以上步驟10次，請問如何能用VBA 做到？ 謝謝

錦子老師：心娟，這個問題，並不是太複雜。

步驟1：首先按ALT+F11鍵開啟VBA視窗。

步驟2：點取「插入 > 模組」指令，新增一張空白模組工作表。

步驟3：輸入下列程序

Sub 巨集1()

    Dim i As Integer

    Range("A1:E10").Select

    Selection.Copy

    Range("F1").Select

    For i = 1 To 10

      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

      Cells(i * 10 + 1, 6).Select

      Next i

End Sub

這段程序可以全部自行輸入，也可將橙色部份文字透過錄製巨集來產生後修改加上黑色部份文字。

結果：

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

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

更多相關文章：請點我