excel用VBA选择性粘贴

2025-03-07 06:08:07

推荐回答（4个）

回答1：

如果仅仅为了去公式，不用粘贴的，直接：
sheets("sheet1").range("D2:D1000","H2:H1000")=sheets("sheet1").range("D2:D1000","H2:H1000").value

回答2：

arr=worksheets("Shee1").range("D2:D1000,H2:H1000")
worksheets("Shee1").range("D2:D1000,H2:H1000")=arr

brr=worksheets("Shee2").range("E2:E1000,G2:G1000")
worksheets("Shee2").range("E2:E1000,G2:G1000")=brr

用数组过度吧，代码简单点，数组获取到的值就是单元格的值，不会有公式。

回答3：

Sheets("sheet1").Range("D2:D1000,H2:H1000").Copy
Sheets("sheet1").Range("D2:D1000,H2:H1000").PasteSpecial Paste:=xlPasteValues

Sheets("sheet2").Range("E2:E1000,G2:G1000").Copy
Sheets("sheet2").Range("G2:G1000,G2:G1000").PasteSpecial Paste:=xlPasteValues

回答4：

用RANGE吧