求助：如何实现Excel单元格值变更时自动更新列表的VBA函数

首先明确：Excel的自定义函数（UDF）无法直接修改其他单元格内容，这是Excel的设计限制——UDF只能返回值到调用它的单元格，不能执行修改其他单元格的操作，这也是你原来的代码报错的核心原因。此外你代码里还存在函数名拼写错误（lista_auto和listaauto不一致）。

针对你的需求，有两种可行方案：

方案一：使用工作表Change事件（VBA实现） #

通过监听存放MAX值的单元格修改事件，自动更新目标列表。步骤如下：

1. 右键目标工作表标签→选择「查看代码」
2. 在弹出的模块中粘贴以下代码（假设MAX值存放在A1单元格，可根据实际修改）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 监听A1单元格的修改
    If Target.Address = "$A$1" Then
        Dim maxVal As Integer
        maxVal = Target.Value
        ' 清空E列原有数据（从E2开始）
        Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row).ClearContents
        ' 生成从1到maxVal-1的列表
        If maxVal > 1 Then
            For i = 2 To maxVal
                Cells(i, "E").Value = i - 1
            Next i
        End If
    End If
End Sub

修改A1的数值时，E列会自动同步更新列表。

方案二：使用动态数组公式（无VBA，适合Excel 365/2021+） #

如果你的Excel支持动态数组功能，无需VBA，直接在E2单元格输入公式：

=SEQUENCE(A1-1,,1)

公式会自动溢出填充到下方单元格，修改A1的MAX值时，列表会自动更新。

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