1.超链接地址提取 Function GetURL(rng As Range) As String On Error Resume Next GetURL = rng.Hyperlinks(1).Address End Function 2.表格多sheet页的目录跳转制作 (代码走查表为例) (1)针对整个工作簿,即 ThisWorkbook,输入以下代码. Sub 超链接() Dim ct As Long Sheet5.Rows("2:100000").ClearConten…
方法中利用正则表达式判断某个字符是否是中文 public string SubStringB(string text,int length){ int target=0; int b=0; for(int i=0;i<text.Length;i++){ var check=Regex.IsMatch(text[i].ToString(),@"[\u4e00-\u9fbb]$"); var temp=check?2:1; if(b+temp>length){ target=i…