小编Vid*_*dhi的帖子

将公式复制到一系列单元格并将其转换为值

我试图从D1复制公式并粘贴它直到最后一行(26446)值可能会增加

Dim lrow As Double
lrow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row

   Range("D2").Copy Destination:=Range("D2:D" & lrow)
   Range("D2" & "lrow").Copy   'THIS LINE SHOWS 1004 error
   Range("D2:D" & "lrow").PasteSpecial Paste:=xlPasteValues

Run Code Online (Sandbox Code Playgroud)

怎么解决这个问题

excel vba excel-vba

Vid*_*dhi

2018 07-10

5
推荐指数

1
解决办法

1万
查看次数