Excel批量替换问题

假设：
单元格A1里面数字为201201
单元格B1里面数字为20177
单元格C1里面数字为2005/1

需求：
将单元格B1和C1里面的数字都换成和A1数字一样的样子，即B1里面为201707，C1里面为200501

就像图片里面一样，上面的是原始数据，下面的是改好的数据

Sub ChangeValues()
    Dim A As Variant, B As Variant, C As Variant
    
    A = Range("A1").Value
    B = Range("B1").Value
    C = Range("C1").Value
    
    If IsNumeric(A) Then ' 判断 A1 是否为数字
        Range("B1").Value = Left(A, 4) & Right(B, 2) ' 取 A1 的前 4 位和 B1 的后 2 位
    End If
    
    If IsDate(C) Then ' 判断 C1 是否为日期
        Range("C1").Value = Format(C, "yyyy") & "/" & Format(C, "m") ' 将 C1 的年份取出并转为 4 位数，将月份取出并去掉前导 0
    End If
End Sub