VBA：复制不带公式的单元格值并粘贴到下一个可用行

Question

很抱歉，如果对此有回应，但是我发现我的问题有两个部分。我目前正在尝试在一个包含公式的工作表中复制特定的单元格值。我希望将其粘贴到没有公式的另一张纸上，但是在第二张纸上，我希望它确保将值粘贴到下一个可用行，即上面的行中没有数据。请参见下面的代码：

Worksheets("WS1").Range("A1").Copy Worksheets("WS2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Worksheets("WS1").Range("B2").Copy Worksheets("WS2").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)

谢谢！

Answer 1

尝试一下

Worksheets("WS2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Worksheets("WS1").Range("A1").Text

或

Worksheets("WS1").Range("A1").Copy
Worksheets("WS2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues