Excel VBA – Select , Copy 與 Paste

測試環境 Windows 10 + Excel 2016

如何透過 Excel VBA 設定 Select , Copy 與 Paste 欄,列 的資料 , 參考文章 – https://weilihmen.medium.com/excel-vba%E5%BE%9E%E9%A0%AD%E4%BE%86%E9%81%8E-%E5%9F%BA%E6%9C%AC%E8%AA%9E%E6%B3%95-%E4%B8%8A%E7%AF%87-c2bc76065ecd

Sub Select1()
 Range("A1").Value = 100
 Range("A1").Select
 Selection.Copy
 Range("B1", "B4").Select
 Selection.PasteSpecial
End Sub

說明:

• Range(“A1”).Value = 100
  設定 A1 欄位為數值 100.
• Range(“A1”).Select
  Selection.Copy
  匡選 A1 欄位,並複製 (Copy) 起來.
• Range(“B1”, “B4”).Select
  Selection.PasteSpecial
  匡選 B1 到 B4 欄位,並貼上 (Paste) B1 到 B4 欄位.

  .PasteSpecial 還可以指定

  • .PasteSpecial xlPasteFormats
    只複製格式.
  • .PasteSpecial xlPasteValues
    只複製值.

執行結果: