复制所有行 /值而不是公式/ VBA

我需要复制几张纸之间的行，虽然我管理了它，但它只复制公式，而不是意义。 我没有使用 VBA 多年来，我不能想出如何做到这一点。

我现有的代码：


Workbooks.Open filename:=NewFN

 filename = Mid/NewFN, InStrRev/NewFN, "\"/ + 1/





 For i = 1 To 14

 Workbooks/filename/.Sheets/"sheet1"/.Rows/i/.Copy ThisWorkbook.Sheets/"BD Raw Data"/.Rows/insertRow/



 insertRow = insertRow + 1

 Next i



 Workbooks/filename/.Close SaveChanges:=False
2021-03-21 添加评论
分享

没有找到相关结果

    已邀请:

    二哥

    赞同来自:

    您需要使用方法
    PasteSpecial

    , 使用清单
    XlPasteType.xlPasteValues

    反而
    Copy Destination

    ,

    例如


    Workbooks/filename/.Sheets/"sheet1"/.Rows/i/.Copy 
    
ThisWorkbook.Sheets/"BD Raw Data"/.Rows/insertRow/.PasteSpecial Operation:=xlPasteValues
    2021-03-21 0 0
    分享

    董宝中

    赞同来自:

    值与公式之间的选择在过程的前半部分进行。 看看方法 PasteSpecial, 即争论 xlPasteValues.

    http://msdn.microsoft.com/en-u ... .aspx
    2021-03-21 0 0
    分享
    为什么被折叠? 0 个回复被折叠

    要回复问题请先登录或注册

    Copyright © 2023, All Rights Reserved