更改代码以仅粘贴来自活动单元格的单元格值

Question

这就是我目前所拥有的：

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，但收效甚微）..而我遇到的另一个问题是为了这个宏工作，我必须点击另一个单元格（它不能激活）..但我需要它工作，而单元格仍处于活动状态..请帮助，谢谢