Excel VBA条件复制单元格至其他工作表代码报错求助

Got it, let's get your VBA macro working right—there are a few small but crucial issues in your code that are throwing errors:

• VBA uses a single = for equality checks, not == (that syntax is for languages like JavaScript or C#)
• Select and Selection calls are unnecessary, slow, and prone to bugs if the user switches sheets mid-macro. Directly referencing cells is far more reliable.
• The Paste method needs proper context, or we can simplify the copy-paste into one clean step.

Simplified Fixed Code #

Private Sub CommandButton1_Click()
    ' Check if Sheet3's cell F2 (row 2, column 6) equals 25
    If Sheets("Sheet3").Cells(2, 6).Value = 25 Then
        ' Directly copy the cell to Sheet1's cell A4 without selecting anything
        Sheets("Sheet3").Cells(2, 6).Copy Destination:=Sheets("Sheet1").Cells(4, 1)
    End If
End Sub

Alternative Version (For More Control) #

If you need to specify what to paste (e.g., only values, not formatting) or clear the clipboard afterward, use this version:

Private Sub CommandButton1_Click()
    Dim sourceCell As Range
    Dim destCell As Range
    
    ' Set clear references to our target cells
    Set sourceCell = Sheets("Sheet3").Cells(2, 6)
    Set destCell = Sheets("Sheet1").Cells(4, 1)
    
    If sourceCell.Value = 25 Then
        sourceCell.Copy
        ' Paste only values (use xlPasteAll if you want formatting too)
        destCell.PasteSpecial xlPasteValues
        ' Clear the clipboard to remove the "marching ants" selection
        Application.CutCopyMode = False
    End If
End Sub

Key Changes Explained #

• Replaced == with = to fix the comparison error
• Removed all Select/Selection logic to make the macro more stable and efficient
• Used Copy Destination:= for one-line copy-paste (simplest case) or PasteSpecial for granular control over what gets pasted

内容的提问来源于stack exchange，提问作者naturlich