如何检查最后4个字符是否为.pdf-VBA代码



Dim resultPDF As String
resultPDF = right("your link", 5)

如果你想把链接放在一个单元格中，你会选择它：

resultPDF = right(ActiveCell.Value, 5)

如果你有很多这样的链接要分析，你必须把它们放在一个范围内。让我们说A:范围。从A2到A20:

Dim i as long, rng as Range, sh as Worksheet
Set Sh = ActiveSheet' use here your sheet
Set rng = sh.Range("A2:A20")
For i = 2 To 20
Debug.Print right(rng.Value, 5)
If right(rng.Value, 5) = ".pdf" then MsgBox "It is PDF!"
Next i