excel - 表扩展而不是创建

Question

我的 Excel 表中有一个错误，该错误出现在我无法在我的机器上重现的其他计算机上。
我制作了一个从数据库中获取数据并在 Excel 中创建表格的子程序。在这种情况下，它是采矿项目。
它选择第一个单元格，向右找到第一个空单元格，写入标题，用它制作一个表格，然后用另一个子填充它。
当同事尝试使用它时，它会扩展前一个表，然后在尝试创建新表时崩溃，因为两个表不能重叠。
初始布局:

应该发生什么:

我的同事得到的:

Public Sub creerTable(Nom As Variant)
    
    Dim cellule As Range
    ' se placer
    Set cellule = ActiveWorkbook.Worksheets("DATA").Range("A1").End(xlToRight).Offset(0, 1)
    Do While cellule.Value <> "" Or Not IsEmpty(cellule)
        Set cellule = cellule.Offset(0, 1)
    Loop
    
    'cr?er le header
    cellule.Interior.Color = vbBlue
    cellule.Value = Nom
    
    'cr?er la table
    ActiveSheet.ListObjects.Add(xlSrcRange, cellule, , xlYes).Name = Nom
    
End Sub

编辑:在我同事的计算机上进行更多测试后，问题可能与 Excel 设置有关。当某些东西写在表格的右侧时，表格会延伸以覆盖它。谷歌搜索显示这是一种自动更正的行为。我想我将不得不停用自动更正的选项。

Answer 1

答案真的很傻。问题是excel中的自动更正设置。我所要做的就是添加这一行:

Application.autocorrect.AutoExpandListRange = False