玖叶教程网

今天就简单来谈论一下常用的语句，便于大家理解。

1、粘贴

1.1 粘贴为文本

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

1.2 直接粘贴

ActiveSheet.Paste

2、批量加密

Sub 一键加密()

Dim i, n As Integer

n = Worksheets.Count

For i = 1 To n

Worksheets(i).Protect Password:="（输入密码）"

Next

End Sub

3、删除文件中的图片等格式

3.1 删除所有

Dim p As Shape

For Each p In Sheet1.Shapes

If p.Type >= 1 Then

p.Delete

End If

Next

3.2 删除指定的图片

Sub a()

Dim x

For Each x In ActiveSheet.DrawingObjects

If x.Name <> "Picture 1" Then x.Delete

Next

End Sub

4、字符判断

If InStr(Range("A8"), "/") > 0 Then MsgBox "正确"

5、VBA取最大值

需要调用excel已有的函数，必须需要在函数前增加：Application.WorksheetFunction.

x = Application.WorksheetFunction.Max(a, b, c, d)

Application.WorksheetFunction.Max(Range(Cells(i, 1), Cells(i, 200)))