无法粘贴和清除单元格内容

Question

这是我的代码：

For j = 3 To 37 Step 2
If PaddleBDateInstalledTextBox.Value = Cells(j, 8).Value Then
        Cells(j, 8).Copy
        Range("D42").PasteSpecial Paste:=xlPasteValues
        Range("D42").PasteSpecial Paste:=xlPasteFormats
        Range("D42").PasteSpecial Paste:=xlPasteAllUsingSourceTheme '<-- 
        cells background, etc.
        Range("D42").NumberFormat = "MM/DD/YY"
        Cells(j, 8).Clear
 End If
Next

我有一个格式为日期的单元格，我试图先复制它，然后将其粘贴到另一个单元格中，但是我的单元格中没有粘贴值，也没有原始单元格中的值。 并且内容没有清除。

我有另一个具有Today()格式的单元格，我想只将没有公式的值复制到另一个单元格中，但是我也失败了。

我要复制的最后一个单元格的公式为=($I$2-H2)+(G2-F2) ，我遇到了同样的问题。

Answer 1

这段代码对我有用：

If 1 = Cells(1, 1).Value Then 'Assuming in Cell(1, 1) is the value 1
    Cells(1, 1).Copy
    Range("B1").PasteSpecial Paste:=xlPasteValues
    Range("B1").PasteSpecial Paste:=xlPasteFormats
    Range("B1").PasteSpecial Paste:=xlPasteAllUsingSourceTheme

    Range("B1").NumberFormat = "MM/DD/YY"
    Cells(1, 1).Clear
End If

也许是Cells(j, 8).Value 。值是您的问题。 j有什么价值？ 如果j是变量，则您的代码应该是正确的，但是如果您将J作为列名，则代码应为Range("J" & 8).Value或Cells(8, "J").Value而不是Cells(j, 8).Value