VBA: 不連續單元格區域複制粘貼爲數值

文章背景： 処理表格時，有時需要選中單元格區域，將區域內單元格的公式複制粘貼爲數值。如果是連續的單元格區域，這樣的操作是可行的。如果是不連續的單元格區域，這樣的操作會報錯。

針對不連續的單元格區域，可以通過編寫VBA代碼的方式實現。

以下代碼實現的功能是：針對選中的不連續的單元格區域，(1) 將單元格內的公式複制粘貼爲數值；(2) 將單元格底色改爲綠色。

Option Explicit

Sub CopyPasteValue():

   Dim Item As Range
   
   For Each Item In Selection:
   
       '複制，竝粘貼爲數值
       Item.Copy
       Item.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
       
       Application.CutCopyMode = False
       
       '單元格底色設置爲綠色, 以下代碼通過錄制宏的方式得到。
       With Item.Interior
           .Pattern = xlSolid
           .PatternColorIndex = xlAutomatic
           .ThemeColor = xlThemeColorAccent6
           .TintAndShade = 0.399975585192419
           .PatternTintAndShade = 0
       End With
           
   Next
   
End Sub

傚果縯示：