If Sheet1.Shapes(Rng.Offset(0, -1).Value).Fill.ForeColor.RGB <> Cells(M, "j").Interior.Color Then

以上这句语言为什么老是显示需调试


    If Sheet1.Shapes(Rng.Offset(0, -1).Value).Fill.ForeColor.RGB <> Cells(M, "j").Interior.Color Then
            Sheet1.Shapes(Rng.Offset(0, -1).Value).Fill.ForeColor.RGB = Cells(M, "j").Interior.Color '填色
            Sheet1.Shapes(Rng.Offset(0, -1).Value).TextFrame2.TextRange.Characters.Text = Rng.Offset(0, -1).Value & Chr(10) & Rng.Value '区块省份名称+人数
            Sheet1.Shapes(Rng.Offset(0, -1).Value).TextFrame2.TextRange.Font.Size = 6 '设置字体大小
            a = 0 '延时
            t = Timer
            Do While a < 0.13 '延时参数，数值越大，延时越长【自行修改测试】
                a = Timer - t
                DoEvents
            Loop
        Else
            Sheet1.Shapes(Rng.Offset(0, -1).Value).TextFrame2.TextRange.Characters.Text = Rng.Offset(0, -1).Value & Chr(10) & Rng.Value '区块省份名称+人数
        End If