为啥两个单元格合成一个单元格后会使后面批量插入的复选框发生偏移？

这个是一个单元格插入的

这个是合并单元格插入的

这个其实是位置慢慢往上移的，数据有点少看不出来，下列是插入代码

Sub CreateCheckBoxes()

Dim ws As Worksheet

Dim cell As Range

Dim chkBox As CheckBox

Dim i As Long

Set ws = ActiveSheet

i = 0 '计数器

For Each cell In ws.Range("F3:F660")

cell.Font.Color = cell.Interior.Color

If cell.Row Mod 2 = 1 Then

cell.Value = False

'添加复选框

With ws.CheckBoxes.Add(cell.Left, cell.Top, cell.Width, cell.Height)

.Caption = "已完成"

.LinkedCell = cell.Address

.Name = "CheckBox_" & cell.Address(False, False)

Set chkBox = .TopLeftCell.Parent.CheckBoxes(.Name)

End With

'如果需要更精确，可以再调整一次

chkBox.Top = cell.Top + 5

chkBox.Left = cell.Left + 5

'输出单元格和复选框位置信息

Debug.Print "单元格地址: " & cell.Address

Debug.Print "单元格位置 - 左: " & cell.Left & ", 上: " & cell.Top & _

", 宽: " & cell.Width & ", 高: " & cell.Height

Debug.Print "复选框位置 - 左: " & chkBox.Left & ", 上: " & chkBox.Top & _

", 宽: " & chkBox.Width & ", 高: " & chkBox.Height

Debug.Print "链接单元格: " & chkBox.LinkedCell

Debug.Print "----------------------------------------"

i = i + 1

End If

Next cell

Debug.Print "操作完成！共创建了 " & i & " 个复选框，已精确对齐。"

End Sub