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

[發問] 如何簡化巨集

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-3-31 23:13 | 顯示全部帖子

[發問] 如何簡化巨集

本帖最後由 luke 於 2012-3-31 23:15 編輯

各位先進!

我錄製了乙個巨集, 煩請先進簡化.

Sub Macro1()
Range("A17").Select
ActiveCell.FormulaR1C1 = _
      "=IF(R[-2]C="""","""",VLOOKUP(R[-2]C,sheet2!R2C1:R[5]C[5],3,0))"
Range("A18").Select
ActiveCell.FormulaR1C1 = _
      "=IF(R[-3]C="""","""",VLOOKUP(R[-3]C,sheet2!R2C1:R[4]C[5],4,0))"
Range("A19").Select
ActiveCell.FormulaR1C1 = _
      "=IF(R[-4]C="""","""",VLOOKUP(R[-4]C,sheet2!R2C1:R[3]C[5],5,0))"
Range("A20").Select
ActiveCell.FormulaR1C1 = _
      "=IF(R[-5]C="""","""",VLOOKUP(R[-5]C,sheet2!R2C1:R[2]C[5],6,0))"
Range("A17:A20").Select
Selection.Copy
Range("a17:K20").Select
ActiveSheet.Paste
Range("a24:K27").Select
ActiveSheet.Paste
Range("a31:K34").Select
ActiveSheet.Paste
Range("a38:K41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub