摘要：问题：提取check之后的数字 来源：Excelhome Sub 提取数字() Dim regexp As New regexp With regexp .Pattern = "check\s*(\d+)" End With With Worksheets("sheet1") r = .Cells( 阅读全文

摘要：def power(x,n): s=1 while n > 0: n = n-1 s = s * x return sm=0for i in range(1,101) : n=power(i,2) m=m+n print(m) 阅读全文

摘要：代码来源Excelhome，链接：http://club.excelhome.net/thread-1360829-1-1.html 存着，以后借鉴着用^-^ Sub 去重汇总() Dim arr, brrDim dDim i As Integer, j As Integer, n As Integ 阅读全文