☰

Excel，需要：输入数据后自动重复，除非手动更改

tag-icon • tag-icon microsoft-excel vba
Excel，需要：输入数据后自动重复，除非手动更改

MS Excel，一行数据（数字 1 至 20）。所有单元格的输入均通过下拉列表完成。

我想知道是否可以选择一个下拉列表元素及其右侧范围内的所有单元格，自动复制应用的数据。

例如，我在单元格 A1 - （3）中选择，所有 20 个单元格（A1 到 T1）都变成（3），然后我将单元格 E 中的数据更改为输入（7），现在单元格 A1 到 D1 应该显示（3），单元格 E1 到 T1 显示（7）。

那可能吗？

谢谢。

答案1

这可以用 VBA 来实现。单元格是否具有数据验证并不重要。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:T1")) Is Nothing Then
        Application.EnableEvents = False
        Range(Target, "T1") = Target.Value
        Application.EnableEvents = True
    End If
End Sub

复制代码，右键点击工作表标签，选择“查看代码”，将代码粘贴到代码窗口中。您需要将文件另存为启用宏的文件，扩展名为 xlsm。

相关内容