在Excel表中,如何使用vba编码,将一列的值进行清空

在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就会跟着改变,如有问题请追问。
第2个回答  推荐于2017-11-25
清空列:
sheets(表名称).columns(辅助列的数值).clear
如表名称:Tab1 辅助列在D列
sheets(“Tab1”).columns(4).clear
剩下的就是建立两个变量数组 然后赋值输出到辅助列的简单问题了。本回答被网友采纳
第3个回答  2013-04-12
Range("G1:G10").Select
Selection.ClearContents
第4个回答  2013-04-13
这个比较简单,但你的表述不是很清楚,我理解的话就用不着VBA了。能不能举例描述?

在Excel表中,如何使用vba编码,将一列的值进行清空?
清空列:sheets(表名称).columns(辅助列的数值).clear 如表名称:Tab1 辅助列在D列 sheets(“Tab1”).columns(4).clear 剩下的就是建立两个变量数组 然后赋值输出到辅助列的简单问题了。编码 编码是信息从一种形式或格式转换为另一种形式的过程也称为计算机编程语言的代码简称编码。用预先规定的方法...

在Excel表中,如何使用vba编码,将一列的值进行清空
在当前工作表名称处点右键,查看代码,然后粘贴上面代码就OK了。只要A1的值改变G1就会跟着改变,如有问题请追问。

如何用vba删掉excel单元格里的数字
按ALT+F11,打开VBE编辑器,单击插入——模块,复制下面的代码,然后按F5键运行,excel会自动将A列所有的内容删除数字之后的结果提取放在C列。Sub excel删除数字()Dim reg As Object ‘定义reg为一个对象 Dim arr ‘定义一个动态数组 Dim i As Long, j As Long ‘分别定义i,j为长整型 i = Ran...

Excel 如何清空指定单元格区域全部内容的VBA
1、新建一个EXCEL工作表,而后打开,在下方工作表标签位置,就是sheet1的地方,点击鼠标右键,而后在弹出的选项卡里面找到查看代码 2、点击查看代码,而后会弹出EXCEL支持的后台代码VBA界面,我们我们可以看到左侧是我们的工作表标签,而后右边就是代码窗口 3、我们在sheet1的右侧代码窗口,输入代码,这里的...

在EXCEL中怎样用VBA实现打开时自动清空某一列或多列中的数据?
Sub Worksheet_Activate()Columns("C:D").Select Selection.ClearContents Range("A1").Select End Sub 在EXCEL工作簿中的工作表名字处右击,然后查看代码,然后粘贴该代码,以上代码将执行:打开该工作表时自动清除C到D列的内容(单列的话只打一列的字母就行了),完成清除动作后单元格定位在A1 ...

excel中,如何删除列的问题,用vba编码。
Sub dlt() '在VBA中自定义一个块 For lie = 1 To 15 '搜索前15列,其实可是任意较大的数 If IsDate(Cells(1, 1)) Then Exit Sub '判断A1中的值是不是日期,是,就退出程序,Range( “1:1

如何使用VBA在EXCEL中批量删除整列数据并调整列的顺序?
首先,需要将排序的位置放在sheet2的A列中,然后执行代码 Sub m()Set dicb = CreateObject("scripting.dictionary")For i = 1 To Sheet2.Range("A65536").End(xlUp).Row If dicb.exists(Sheet2.Cells(i, 1).Value) = False Then k = k + 1 dicb(Sheet2.Cells(i, 1).Value) = k...

excel 用VBA如何删除一列中的重复数据
1、打开要进行数据处理的表格,2、按ALT+f11,进入VBE程序操作页面,3、将鼠标下移,右键弹出如图,4、选择插入-模块,5、鼠标向右移动,将如下代码写入:Sub test()Dim d As Object Dim r%, i Dim arr Set d = CreateObject("scripting.dictionary")With Worksheets("sheet1")r = .Cells(....

vba excel 清空内容但是保存原有的公式
首先使用excel打开表格,按excel定位快捷键Ctrl+G。在excel定位窗口中选择定位条件。在excel定位条件中选择常量,然后只勾选数字。此时excel会自动定位在数字上。此时excel数字就删除了,文字和公式还在。

EXCEL中如何使用VBA清除特定行内容
Sub 清除()For k = 1000 To 60 Step -1 If (Cells(k, 1) = -5 And Cells(k, 2) = 80) Or (Cells(k, 1) = 25 And Cells(k, 2) = 64) Then Cells(k, 1).EntireRow.ClearContents End IfNextEnd Sub功能区域为第60-1000行。

相似回答