excel批量创建指定文件夹中所有子文件夹超链接

excel批量创建指定文件夹中所有子文件夹超链接

2020-04-14 xenice 148 阅读

'批量创建指定文件夹中所有子文件夹超链接。 Sub linkAll() Dim fs, f, f1, fc, i Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(ThisWorkboo...

excel核对第2列中的内容在第1列中是否存在

excel核对第2列中的内容在第1列中是否存在

2020-04-14 xenice 175 阅读

'核对列2中的内容在列1中是否存在,结果放在列3中 Sub text() Dim bool '是否存在 For j = 1 To 86 '要核对的内容,放在第2列 bool = False For i = 1 To 327 '被查找的内容,...

excel提取字符串中的英语和数字

excel提取字符串中的英语和数字

2020-04-14 xenice 151 阅读

'判断字符是否为a-z,A-Z,0-9中的一个 Function ChrCompare(chr As String) As Boolean If chr Like "[a-z]" Or _ chr Like "[A-Z]" Or _ chr Like "[0-9]" Then ...