在Excel表中，需要动态实现数据的有效性，在某列选择一个值时，将该值对应的值放在一个辅助列中，这个辅助列是固定的，如果再选择另外一个值时，先清空这个辅助列的值，然后将最新对应的值放在辅助列中
第1个回答 2013-04-13
假设A1是设置了数据有效性的单元格，辅助列在G列，要把A1的值放在G1可用下面代码： Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then [G1] = [A1] '里面加粗的1表示第一列即A列，指设置了有效性的所在列
End Sub
在当前工作表名称处点右键，查看代码，然后粘贴上面代码就OK了。只要A1的值改变G1就会跟着改变，如有问题请追问。
If Target.Column = 1 Then [G1] = [A1] '里面加粗的1表示第一列即A列，指设置了有效性的所在列
End Sub
在当前工作表名称处点右键，查看代码，然后粘贴上面代码就OK了。只要A1的值改变G1就会跟着改变，如有问题请追问。
第2个回答 推荐于2017-11-25
清空列：
sheets(表名称).columns(辅助列的数值).clear
如表名称：Tab1 辅助列在D列
sheets(“Tab1”).columns(4).clear
剩下的就是建立两个变量数组 然后赋值输出到辅助列的简单问题了。本回答被网友采纳
sheets(表名称).columns(辅助列的数值).clear
如表名称：Tab1 辅助列在D列
sheets(“Tab1”).columns(4).clear
剩下的就是建立两个变量数组 然后赋值输出到辅助列的简单问题了。本回答被网友采纳
第3个回答 2013-04-12
Range("G1:G10").Select
Selection.ClearContents
Selection.ClearContents
第4个回答 2013-04-13
这个比较简单，但你的表述不是很清楚，我理解的话就用不着VBA了。能不能举例描述？
