VBA: 不连续单元格区域复制粘贴为数值

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