ExcelVBA | 常用代码语句(1)

评论365字数 425阅读1分25秒阅读模式

复制工作表

Sub 宏1()
'复制工作表Sheet1,并放到它的后面
    Sheet1.Copy after:=Sheet1
End Sub

重命名工作表

Sub 重命名工作表()
    '重命名工作表Sheet1为原表
    Sheet1.Name = "原表"    
End Sub

转换假空值单元格为真空值单元格

Sub 转换假空值单元格为真空单元格()
    
    Dim rCell, 最大行 As Range
    Application.ScreenUpdating = False
    On Error Resume Next
    Set 最大行 = Sheet1.Range("A65535").End(xlUp) '计算最大行
    For Each rCell In Sheet1.Range("A1:R" & 最大行.Row)
        If rCell.Text = "" Then rCell.ClearContents
    Next
    Application.ScreenUpdating = True
    On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
    
End Sub


部分文章来源于网络  如有侵权请告知本人立即删除!

站长邮箱447800330@qq.com

匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定