標題: [發問] Copy A file to B file的欄位 [打印本頁]

---

作者: cherryliao    時間: 2015-8-27 22:32     標題: Copy A file to B file的欄位

請問以下以下公式是貼上值(Value)， 若想要改為貼上公式或其他格式要怎麼修改呢? 再請協助了，謝謝!

Workbooks("ASUS.xlsb").Sheets("SKY13561-670LF").Range("D3:AD18") = Workbooks("HPA.xlsb").Sheets("SKY13561-670LF").Range("D3:AD18").Value
Workbooks("ASUS.xlsb").Sheets("SMS7630-061").Range("D3:AD18") = Workbooks("HPA.xlsb").Sheets("SMS7630-061").Range("D3:AD18").Value
Workbooks("ASUS.xlsb").Sheets("SKY85709-11").Range("D3:AD18") = Workbooks("HPA.xlsb").Sheets("SKY85709-11").Range("D3:AD18").Value
Workbooks("ASUS.xlsb").Sheets("SKY13562-670LF").Range("D3:AD18") = Workbooks("HPA.xlsb").Sheets("SKY13562-670LF").Range("D3:AD18").Value
Workbooks("ASUS.xlsb").Sheets("SKY85302-11").Range("D3:AD18") = Workbooks("HPA.xlsb").Sheets("SKY85302-11").Range("D3:AD18").Value

Workbooks("ASUS.xlsb").Sheets("SKY13561-670LF").Range("D23:AD28") = Workbooks("HPA.xlsb").Sheets("SKY13561-670LF").Range("D23:AD28").Value
Workbooks("ASUS.xlsb").Sheets("SMS7630-061").Range("D23:AD28") = Workbooks("HPA.xlsb").Sheets("SMS7630-061").Range("D23:AD28").Value
Workbooks("ASUS.xlsb").Sheets("SKY85709-11").Range("D23:AD28") = Workbooks("HPA.xlsb").Sheets("SKY85709-11").Range("D23:AD28").Value
Workbooks("ASUS.xlsb").Sheets("SKY13562-670LF").Range("D23:AD28") = Workbooks("HPA.xlsb").Sheets("SKY13562-670LF").Range("D23:AD28").Value
Workbooks("ASUS.xlsb").Sheets("SKY85302-11").Range("D23:AD28") = Workbooks("HPA.xlsb").Sheets("SKY85302-11").Range("D23:AD28").Value

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)