A工作簿中的工作表单元格选择性粘贴到B工作簿中的工作表

ykcbf1100

A工作簿数据导入。

1. Sub ykcbf()   '//2024.6.24
   
2.     Application.ScreenUpdating = False
   
3.     Set ws = ThisWorkbook
   
4.     p = ws.Path
   
5.     f = p & "\A.xls"
   
6.     Set wb = Workbooks.Open(f, 0)
   
7.     st1 = wb.Sheets("月消耗").[h4].Value
   
8.     st2 = wb.Sheets("月消耗").[h12].Value
   
9.     arr = wb.Sheets("销售结转").[n4:n15].Value
   
10.     wb.Close 0
    
11.     With ws
    
12.         .Sheets("月消耗").[e4] = st1
    
13.         .Sheets("月消耗").[e12] = st2
    
14.         .Sheets("销售结转").[j4].Resize(UBound(arr), 1) = arr
    
15.     End With
    
16.     Application.ScreenUpdating = True
    
17.     MsgBox "OK！"
    
18. End Sub
    

复制代码

Kikusensei

ykcbf1100 发表于 2024-6-24 09:06
不必用copy法，可以用数组，写入肯定是数值。
A工作簿中销售结转工作表数据范围不应限定于n4:n9,因为成品 ...

很好用，在此感谢大神的无私奉献。