乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > <em>excel</em> <em>vba</em>删除单元格内部分内

<em>excel</em> <em>vba</em>删除单元格内部分内

作者:乔山办公网日期:

返回目录: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


  1. 手动删除法,先选中黄色区域,然后按delete键

  2. vba自动删除法

    Sub 删除指定区域内容()
    Range("B2:H33").Clear
    End Sub

相关阅读

  • 如何修改<em>excel单元格属性</em>

  • 乔山办公网excel表格制作
  • range,cell属性 名称 说明 AddIndent 返回或设置一个 Variant 值,它指明当单元格中文本的对齐方式为水平或垂直等距分布时,文本是否为自动缩进。 Address 返回一个 String 值,它代表宏语
关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网