16進数→10進数(RGB)

#80CADE → R:128 G:202 B:222

    Dim StrHex As String
    Dim intVal As Integer
    
    Dim R As Range
    Set R = Range("I30")
    
    Do Until R.Value = ""

        'R
        StrHex = Mid(R.Value, 2, 2)
        intVal = Val("&H" & StrHex)
        R.Offset(, -4).Value = intVal
        
        'G
        StrHex = Mid(R.Value, 4, 2)
        intVal = Val("&H" & StrHex)
        R.Offset(, -3).Value = intVal
        
        'B
        StrHex = Mid(R.Value, 6, 2)
        intVal = Val("&H" & StrHex)
        R.Offset(, -2).Value = intVal
      
        Set R = R.Offset(1)
    
    Loop