摘要： 如果Excel表格中的某个区域有许多文本格式的邮件地址需要添加链接，用手工的方式非常繁琐。可以使用下面的VBA代码来快速添加链接，假设该区域为F2:F18。excel用快捷... 如果Excel表格中的某个区域有许多文本格式的邮件地址需要添加链接，用手工的方式非常繁琐。可以使用下面的VBA代码来快速添加链接，假设该区域为F2:F18。
excel用快捷键放大和缩小工作表
Excel中的许多命令都可以使用快捷键来完成，但仍然有一些命令没有指定快捷键。例如在“常用”工具栏中的“显示比例”命令。我们可以用下面的VBA代码来实现用快捷键调整工作表显示比例，将下列代码输入到标准模块中： Sub ZoomIn()Dim ZP As IntegerZP
Sub ConvertToEmail()
Dim convertRng As Range
Set convertRng = Range("F2:F18")
Dim rng As Range
For Each rng In convertRng
If rng.Value <> "" Then
ActiveSheet.Hyperlinks.Add rng, "mailto:" & rng.Value
End If
Next rng
End Sub
如何利用VBA生成一列不重复的随机整数
如果我们要用VBA生成一列不重复的随机整数，可以用下面的VBA代码。本例可以在A1:A100中产生1-100的不重复随机整数。 Sub RndNumberNoRepeat()Dim TempArr1(99) As Integer, TempArr2(0 To 99, 1 To 1) As IntegerDim RndN
