- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
最近一直在修改巨集程式,因為懂得不多,所以諸多問題,請見諒.
麻辣家族各位熱心人士幫忙我寫了些程式,我自己稍加修改成所需要的巨集程式,以下這個雖然改了好幾個小時,可以用了,但我知道有很多重複的語言,使得巨集跑得很慢,我已經試著修改N次了,都行不通,不知有沒有人可以幫我精簡它?
Sub copy_from_Multi_format()
'
' copy_from_Multi_format 巨集
With Workbooks("2011 BCMart Multi-Format.xlsx").Sheets("BCM控管")
.Columns("A:CZ").Hidden = False
Set A = Intersect(.UsedRange, .Range("A:CZ")).SpecialCells(xlCellTypeVisible)
With Workbooks("VBA Cluster.xlsm") '請改成要複製活頁簿的名稱(已經打開)
With Sheets("BCM控管")
.Columns("A:CZ").Hidden = False
A.Copy Workbooks("VBA Cluster.xlsm").Sheets("BCM控管").Range("A1") '完全複製
End With
End With
End With
With Workbooks("VBA Cluster.xlsm") '請改成要複製活頁簿的名稱(已經打開)
With Sheets("BCM控管")
Set A = Intersect(.UsedRange, .Range("A:CZ")).SpecialCells(xlCellTypeVisible)
A.Copy
.Range("A1").PasteSpecial xlPasteValues '選擇性貼上值
End With
End With
Workbooks("VBA Cluster.xlsm").Activate
Sheets("BCM控管").Select
Columns("F:F").Select
Selection.Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Workbooks("VBA Cluster.xlsm").Activate
Sheets("VBA").Select
Range("B1").Select
End Sub |
|
發表於 2012-1-21 03:17
| 
