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

[發問] 如何簡化程式

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-4-13 14:42 | 只看該作者

[發問] 如何簡化程式

各位大大

小弟錄製了1個巨集如下, 煩請先進指導簡化程式

Sub Test()
Range("K1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-3]="""",RC[-8],RC[-3])"
Range("K1").Copy
Range("K2:K15").Select
ActiveSheet.Paste
Range("L1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-3]="""",RC[-8],RC[-3])"
Range("L1").Copy
Range("L2:L15").Select
ActiveSheet.Paste
Columns("K:L").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Columns("H:J").Select
Range("J1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A1").Select

End Sub