- 帖子
- 216
- 主題
- 71
- 精華
- 0
- 積分
- 292
- 點名
- 0
- 作業系統
- window xp
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-6-27
- 最後登錄
- 2024-9-28
|
請問大大可以甚樣貼上值與數字格式, 試了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 |
|
發表於 2015-8-20 14:35
| 
