Excel VBA 技巧分享2

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Excel VBA 技巧分享2

Further, if only paste value without format, here is for reference.

Sub CopySheetD2SheetN()

    Dim nWs As Worksheet, dWs As Worksheet

    Set nWs = ActiveSheet
    Set dWs = Workbooks("DataBase.xlsx").Sheets("Data")

    dWs.Range("A2:J2").Copy
    nWs.Range("A2").PasteSpecial xlPasteValues

    ....

    MsgBox "Completed!", vbInformation, "Message"

    Set nWs = Nothing
    Set dWs = Nothing

End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：EXCEL xcel exce cel VBA

三重虫 发表于 2021-9-21 12:18

哈 多多交流

对象占内存，用多了卡
因为不需要保留格式，直接用数组就行了。
主要伪代码如下
Arr=range.value
NewRange.resize=arr