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