返回列表下一主題上一主題發帖

請問如何只貼上數字

52ee24

中學生 Rank: 2

帖子: 51
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: vista
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-11-26
最後登錄: 2024-1-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-10-30 11:37 | 只看該作者

請問如何只貼上數字

各位達人好~
我是vba的新手
想請問一下
我想從一個excel表複製到另一個excel表
我寫的如下
可是貼過去後，把算式還有格式都貼上了
但我只想貼上數值
我該如何改
謝謝
Application.DisplayAlerts = False
Dim y, m, d
y = InputBox("輸入月份(yyyy)")
m = InputBox("輸入月份(MM)")
d = InputBox("輸入日期(DD)")
Data1 = "http://rptap/report/Daily/DailyWaferYield/DailyWaferYield-" & y & "-" & m & "-" & d & ".xls"
Workbooks.Open Filename:=Data1

Range("d4:ah4").Copy ThisWorkbook.Sheets("data-" & m).Range("d7:ah7")
End Sub