excel版本低怎么更新 excel版本

上几期手把手教大家如何用VBA代码来删除空行、如何显示行列号以及如何一键导出PDF 。这些都在一个工作表里通过按钮的操作 。
也就是说换个工作表都不能再用了 , 更别说换到另外一个工作簿了 。
这里说一下工作簿和工作表的区别 , 工作簿是一个Excel文件(红框) , 工作簿英文叫workbook 。而一个工作簿里有很多工作表(绿框) , 工作表英文叫worksheet 。具体见下图:

excel版本低怎么更新 excel版本

文章插图
excel版本低怎么更新 excel版本

文章插图
excel版本低怎么更新 excel版本

文章插图
excel版本低怎么更新 excel版本

文章插图
excel版本低怎么更新 excel版本

文章插图
excel版本低怎么更新 excel版本

文章插图
excel版本低怎么更新 excel版本

文章插图
excel版本低怎么更新 excel版本

文章插图
excel版本低怎么更新 excel版本

文章插图
我的地盘我做主
在别人面前 , 打开Excel. 是不是觉的有一点点吊呀!
It's your time to show off!
以下是上文提到的删除空行、另存为PDF和显示行列号的三个小工具的代码:
Sub ShowRowColumNo()
MsgBox "当前行号:" & ActiveCell.Row & Chr(13) & "当前列号:" & ActiveCell.Column
End Sub
Sub SaveAsPDF()
On Error Resume Next
Dim sName
sName = ActiveWorkbook.path & "\" & Split(ActiveWorkbook.Name, ".")(0) & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=sName, Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Sub DeleteEmptyRow()
Dim i
Application.DisplayAlerts = True
For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete
【excel版本低怎么更新 excel版本】End If
Next
Application.DisplayAlerts = False
End Sub
其它的工具 , 就照葫芦画瓢的事情!祝大家玩得愉快!

    推荐阅读