將單元格的公式結果作為值復制到同一單元格中

Question

我已經編寫了這段代碼來查找特定列中超過0的值：

Private Sub CommandButton1_Click()

    a = Worksheets("Sheet1").Cells(Rows.Count, 3).End(xlUp).Row

    For i = 4 To a
        If Worksheets("sheet1").Cells(i, 3).Value > 0 Then
            Worksheets("sheet1").Cells(i, 3).Copy
            Worksheets("sheet1").Cells(1, 3).PasteSpecial xlPasteValues
        End If
    Next

    Application.CutCopyMode = False

End Sub

我的問題是復制和粘貼值。 我只需要復制單元格並將值粘貼到同一單元格中。 例如，如果宏在單元格c5中讀取的總數大於0，則它將復制單元格c5並將值粘貼到c5中。

如何修復粘貼值行，以將值粘貼到復制的同一單元格中？

Answer 1

而不是使用復制/粘貼，只需這樣做：

Worksheets("sheet1").Cells(i, 3).Value = Worksheets("sheet1").Cells(i, 3).Value

Answer 2

使用with塊限制重復輸入的數量

Private Sub CommandButton1_Click()
With Worksheets("Sheet1")
    a = .Cells(Rows.Count, 3).End(xlUp).Row
    For i = 4 To a
        With .Cells(i, 3)
            If .Value > 0 Then .Value = .Value
        End With
    Next
End With
End Sub