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 < / p>

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

1 个答案: