摘要:
1、提取数字 Function sz(i As String) As String Dim regex As Object Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "[^0-9]" regex.ignoreCase = 阅读全文
摘要:
Excel疑难千寻千解丛书(三)Excel2010 VBA编程与实践.pdf Sub 让图片适应单元格() Dim sh As Shape Dim sSheet As Worksheet '源工作表 Set sSheet = Worksheets("Sheet1") For Each sh In s 阅读全文