☰

Excel VBA程式碼從一個儲存格剪下並貼上到另一個儲存格

tag-icon • tag-icon microsoft-excel vba
Excel VBA程式碼從一個儲存格剪下並貼上到另一個儲存格

我正在嘗試使用 VBA 在 Excel 中設定程式碼，以從“H”列中複製大於“0”的儲存格，並將內容貼到“G”列中的儲存格中。例如，如果“H2”大於“0”，則剪下並貼上到“G2”，依此類推。我似乎找不到任何有用的東西。任何幫助將不勝感激。

答案1

為了幫助您完成一些工作，為了使用 VBA 複製貼上，請查看以下內容：

Sub Copy_paste()
    ThisWorkbook.Sheets("Sheet1").Range("A1").Copy
    ThisWorkbook.Sheets("Sheet1").Range("B1").Select
    ThisWorkbook.Sheets("Sheet1").Paste
End Sub

它應該非常簡單，但放置在“A1”中的內容是複製的來源，而放置在“B1”中的內容是目的地。順便說一下切代替複製，只需將 .Copy 替換為 .Cut 即可。

至於大於等邏輯，只需在我上面展示的複製/貼上方法周圍添加一些邏輯運算符即可。例如，如果 A1 大於 2，則將 A1 複製到 B1：

Sub Copy_paste()
    If ThisWorkbook.Sheets("Sheet1").Range("A1") > 2 Then
        ThisWorkbook.Sheets("Sheet1").Range("A1").Copy
        ThisWorkbook.Sheets("Sheet1").Range("B1").Select
        ThisWorkbook.Sheets("Sheet1").Paste
    End If
End Sub

筆記

另請注意，您可以透過多種不同的方式引用儲存格。如果所有內容都發生在同一工作簿中，則以下內容都是同義詞：

  • ThisWorkbook.Sheets("Sheet1").Range("A1")
  • 範圍("'工作表1'!A1")
  • ThisWorkbook.Sheets("Sheet1").Cells(1,1)
  • 工作表（「工作表1」）.儲存格（1,1）
  • 工作表（“工作表1”）.範圍（“A1”）

相關內容