返回列表 上一主題 發帖

[發問] VBA 貼上值與數字格式

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-20 14:35 | 只看該作者

[發問] VBA 貼上值與數字格式

請問大大可以甚樣貼上值與數字格式, 試了PASTE SPECIAL PASTLE VALUE等語法會變成空白????

求教

Sub Combineshop_together()

Dim J As Integer
Worksheets("shop summary").Activate
Worksheets("shop summary").UsedRange.Select
Selection.Clear
On Error Resume Next
Sheets("shop summary").Select
For J = 7 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(0, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets("shop summary").Range("A65536").End(xlUp)(2)



Next
End Sub
收藏 分享

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-11-19 

2016猴年全勤獎章
2#
發表於 2015-8-20 19:01 | 只看該作者
Sub Combineshop_together()

Dim J As Integer
'Worksheets("shop summary").Activate
Worksheets("shop summary").UsedRange.Clear
'Selection.Clear
On Error Resume Next
'Sheets("shop summary").Select
For J = 7 To Sheets.Count
Sheets(J).Activate
Range("A1").CurrentRegion.Select
Selection.Offset(0, 0).Resize(Selection.Rows.Count - 1).Copy
'Selection.Copy Destination:=Sheets("shop summary").Range("A65536").End(xlUp)(2)
Sheets("shop summary").Range("A65536").End(xlUp)(2).PasteSpecial xlPasteValuesAndNumberFormats


Next
End Sub

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
3#
發表於 2015-8-20 22:08 | 只看該作者
回復 2# ikboy


    感謝賜教!

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題