大家好，又见面了，我是你们的朋友全栈君。

IsEmpty

  用于判断单元格是否为空：

Sub Main()
    ActiveSheet.Cells(7, 3).Value = 1

    If IsEmpty(ActiveSheet.Cells(7, 3)) Then
        Debug.Print "Is Empty"
    Else
        Debug.Print "Not Empty"
    End If
End Sub

Replace

  函数原型如下：

Replace(string, find, replacewith)

• 功能：将string中的find用replacewith进行替换。
• 返回值：返回被替换后的字符串。

Sub Main()
    Dim movie_name As String
    movie_name = Replace("速度与激情8.mp4", ".mp4", ".avi")
    Debug.Print movie_name ' 输出“速度与激情8.avi”
End Sub

Asc

  输出字符串首字符的ASCII码：

Sub Main()
    Debug.Print Asc("123")
End Sub

Mid

  函数原型如下：

Mid(string, start, length)

• 功能：从string中提取从start起始的length个字符。
• 返回值：返回提取出的字符串。

Sub Main()
    Dim txt As String
    txt = "This is a beautiful day!"
    Debug.Print Mid(txt, 1, 7)
End Sub

Round

  函数原型如下：

Round(expression, [numdecimalplaces])

• 作用：对expression进行四舍五入，numdecimalplaces是小数位数。
• 返回值：返回四舍五入后的数值。

Sub Main()
    Debug.Print Round(12.56)    ' 输出13
    Debug.Print Round(12.56, 0) ' 输出13
    Debug.Print Round(12.56, 1) ' 输出12.6
End Sub