复制工作表
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