作者:乔山办公网日期:
返回目录:excel表格制作
1、新建一个来EXCEL工作表,而后打开,在下方工作表标签位置,就是sheet1的地方,点击鼠标右键,而后在弹出的选项卡里面找到查看代码
2、点击查看代码,而后自会弹出EXCEL支持的后台代码VBA界面,我们我们可以看到左侧是我们的工作表标签,而后右边就是代码窗口
3、我们在sheet1的右侧代码窗口,输入代码,这里的意思是区域的值,等于 "欢迎光知临"
4、代码输入完成后,我们开始对代码开始测试执行效果,在VBA代码窗口上方,找到绿色道的三角箭头
5、点击绿色的运行箭头,而后系统会弹出一个新的对话框,我们在对话框里面选择我们刚才新建的test代码,而后找到运行菜单就可以了
Sub 截取知字道符版权()
For i = 1 To Application.WorksheetFunction.CountA(Range("A:A"))
s = Cells(i, 1).Value
If InStr(s, " ") Then
s = Left(s, InStr(s, " "))
Cells(i, 1).Value = s
End If
Next
End Sub
Sub 删除()
Dim c As Range
For Each c In [a6:k10]
Set findcell = [f6:f10].Find(c, lookat:=xlWhole)
If findcell Is Nothing Then c.ClearContents
Next
End Sub
手动删除法,先选中黄色区域,然后按delete键
vba自动删除法
Sub 删除指定区域内容()
Range("B2:H33").Clear
End Sub