1

这是我目前拥有的：

If Sheet6.Range("j8").Value <> 0 Then

Sheet6.Range("j8").Copy Sheet6.Range("B" & Rows.Count).End(xlUp).Offset(1, 0)

End If

Sheet6.Range("J8").ClearContents

但问题是我只需要复制值，而不是整个格式（我尝试过使用 pastespecial xlpastevalues，但收效甚微）..我遇到的另一个问题是，为了让这个宏工作，我必须单击另一个单元格（它不能处于活动状态）..但我需要它在单元格仍处于活动状态时工作..请帮助，谢谢

4

0 回答 0