我看你遇到了散点图标记样式跳脱的问题——明明IF条件触发没问题，但有时候边框没了填充留着，有时候反过来，格式就是不听使唤。这种情况大多是因为你用了.Format层级的通用形状属性，而散点图的Point对象本身有专门的Marker属性可以控制，优先级更高，也不容易和默认样式冲突。

先给你修正后的代码，亲测能稳定控制标记的填充和边框：

Dim ws As Worksheet
Dim cht As ChartObject
Dim ser As Series
Dim pnt As Point

Set ws = Worksheets("Sheet 1")
Set cht = ws.ChartObjects("Chart_Name")

For i = 2 To 8
    ' 先拿到图表容器里的实际Chart对象，再取系列
    Set ser = cht.Chart.SeriesCollection(i)
    For x = 1 To ser.Points.Count
        ' 把目标单元格存成变量，方便调试和阅读
        Dim targetCell As Range
        Set targetCell = ws.Cells(x + 2, i + 5 + (3 * (i - 2)))
        
        ' 用Trim同时处理空单元格和仅含空格的情况，更严谨
        If Trim(targetCell.Value) = "" Then
            Set pnt = ser.Points(x)
            ' 直接用Marker专属属性，比Format更可靠
            pnt.MarkerBackgroundColor = RGB(255, 255, 255) ' 设置填充色为白色
            pnt.MarkerForegroundColor = RGB(255, 255, 255) ' 设置边框色为白色
            ' 如果想直接隐藏标记，也可以用这句替代上面两行：
            ' pnt.MarkerStyle = xlMarkerStyleNone
        End If
    Next x
Next i

关键修改点说明： #

• 修正Chart对象引用：你原来的Set cht = ws.ChartObjects("Chart_Name")拿到的是工作表里的「图表容器」（ChartObject），不是实际的Chart对象。访问系列时必须用cht.Chart.SeriesCollection(i)，之前的隐式转换偶尔会导致属性访问异常。
• 改用Marker专属属性：散点图的Point自带MarkerBackgroundColor（填充色）和MarkerForegroundColor（边框色），这是专门为散点标记设计的属性，比通用的.Format.Fill/.Format.Line优先级更高，不会被默认样式干扰。
• 简化空值判断：Trim(targetCell.Value) = ""可以同时处理空单元格和仅含空格的情况，省去了两个条件的判断，逻辑更清晰。
• 拆分变量：把Series和Point存成单独变量，不仅代码可读性更高，调试时也能方便查看每个对象的属性状态。

如果你非要用Format的方式调整，也可以强制重置格式状态后再设置颜色（避免默认样式冲突），代码如下：

With pnt.Format.Fill
    .Visible = msoTrue ' 先确保填充可见，再改颜色
    .ForeColor.RGB = RGB(255, 255, 255)
End With
With pnt.Format.Line
    .Visible = msoTrue ' 先确保边框可见，再改颜色
    .ForeColor.RGB = RGB(255, 255, 255)
End With

不过还是更推荐用Marker专属属性，毕竟是专门为散点图标记设计的，稳定性拉满。

内容的提问来源于stack exchange，提问作者J.H