选择性粘贴不适用于粘贴值

Question

我遇到了编译错误和语法错误

我都尝试过

.PasteSpecial xlPasteValues
Paste:=xlPasteValues

Set wsCopy = Worksheets("Sheet2")
Set wsDest = Worksheets("Sheet3")

1. 根据列A中的数据查找复制范围中最后使用的行 lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row

2. 根据列A中的数据查找目标范围内的第一行空白 '偏移属性下移1行 lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

3. 复制和粘贴值 wsCopy.Range("A4:BL" & lCopyLastRow).Copy _ wsDest.Range("A" & lDestLastRow).PasteSpecial xlPasteValues

要仅粘贴值而不粘贴值，我要复制所有公式，我只需要这些值。

Answer 1

复制和粘贴值   wsCopy.Range（“ A4：BL”＆lCopyLastRow）.Copy   wsDest.Range（“ A”和lDestLastRow）.PasteSpecial xlPasteValues