根据该列中任何单元格中的用户条目更新列中的所有单元格

我试图在Excel中创build一个转换表，这样在列中的任何单元格中input一个值将更新该列中的所有单元格与适当的转换值，例如在B2中input值将更新该列中的所有其他单元格，但同样，在B5或B8等中input一个值也将做同样的事情。

我认为这将需要一些VBA编码，但我没有足够的能力来完成这个任务。 任何人都可以指向正确的方向吗？

谢谢，伊恩

Answer 1

说感兴趣的范围从B1到B10 。 将此事件macros放在工作表代码区域中：

Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, v As Variant Set rng = Range("B1:B10") If Intersect(Target, rng) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub v = Target.Value Application.EnableEvents = False rng.Value = v Application.EnableEvents = True End Sub 

因为它是工作表代码，所以安装和自动使用非常简单：

1. 右键单击Excel窗口底部附近的选项卡名称
2. select查看代码 – 这会popup一个VBE窗口
3. 粘贴东西，closuresVBE窗口

如果您有任何疑问，请先在试用工作表上尝试。

如果您保存该工作簿，该macros将与它一起保存。 如果您在2003年以后使用的是Excel版本，则必须将该文件另存为.xlsm而不是.xlsx

要删除macros：

1. 调出上面的VBE窗口
2. 清除代码
3. closuresVBE窗口

要了解有关macros的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件macros（工作表代码）的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

macros必须启用这个工作！

代码将在任何感兴趣的单元格中input任何值，并将其应用于整个范围。

Answer 2

请find下面的代码。 您需要将其放在工作表代码中假设B1到B50是目标地址

 Private Sub Worksheet_Change(ByVal Target As Range) Dim enteredtext As Variant If Not Intersect(Target, Range("B1:B50")) Is Nothing Then enteredtext = Target.Value Range("B1:B50").Value = enteredtext End If End Sub