VBA循环定位工作表文本框遇1004错误及错位放置问题求助

错误原因分析 #

你碰到的运行错误1004是因为初始代码里的Offset(i - 10, 0)生成了无效的单元格引用：当i从1到4时，i-10的结果是-9到-6，也就是从C6向上偏移9到6行，这直接超出了Excel工作表的最小行号（1），所以触发了对象定义错误。

而改成i+10后所有文本框挤在同一位置，大概率是你误解了Offset的用法——Offset(行偏移量, 列偏移量)是相对于基准单元格的偏移，i+10会让偏移量从11到14，对应C6往下11到14行的连续单元格，自然看起来像是挤在一起，不符合你要间隔10个单元格的需求。

修正后的代码（实现间隔10单元格排列） #

要实现每个文本框间隔10个单元格排列（比如第一个在C6，第二个在C16，第三个C26，以此类推），核心是让每个文本框的位置相对于基准单元格C6，向下偏移(i-1)*10行。这样循环变量每增加1，偏移量就增加10行，正好满足间隔需求。

完整代码如下：

Sub PositionChamberTextboxes()
    Dim i As Long, shp As Shape, ws As Worksheet
    Set ws = ActiveSheet
    
    For i = 1 To 4
        ' 定位对应名称的文本框
        Set shp = ws.Shapes("Textbox_Chamber" & i)
        ' 基于C6向下偏移(i-1)*10行，实现10单元格间隔
        With ws.Range("C6").Offset((i - 1) * 10, 0)
            shp.Top = .Top
            shp.Left = .Left
        End With
    Next i
End Sub

关键调整说明 #

• 修复无效偏移：把Offset(i - 10, 0)替换为Offset((i - 1)*10, 0)，确保每次循环的偏移量都是有效的正整数行，从基准单元格C6开始向下依次排列。
• 规范变量类型：给shp加上As Shape的类型声明，避免变体类型带来的潜在问题，让代码更易维护。
• 灵活调整参数：如果你的起始基准单元格不是C6，只需要修改ws.Range("C6")为目标单元格；如果需要调整间隔行数，把10改成你想要的数值即可。

内容的提问来源于stack exchange，提问作者Geographos