摘要：
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 阅读全文
摘要：
Sub 合并工作簿数据()Dim arrDim i As Integer, j As Integer, x As IntegerDim f As String, m As String, n As StringActiveSheet.Range("b4:y34").ClearContentsf = 阅读全文
摘要：
习题： 小明身高1.75，体重80.5kg。请根据BMI公式（体重除以身高的平方）帮小明计算他的BMI指数，并根据BMI指数：低于18.5：过轻 18.5-25：正常 25-28：过重 28-32：肥胖 高于32：严重肥胖 用if-elif判断并打印结果： 代码： height=int(input( 阅读全文
摘要：
以下内容摘自：公众号- SPSS生活统计学 保存做复习之用。 峰度（Kurtosis） 峰度是描述总体（样本）中所有取值分布形态陡缓程度的统计量。通过计算可以得到峰度系数，峰度系数与分布形态的关系是： 峰度系数=3，扁平程度适中； 峰度系数<3，为扁平分布； 峰度系数>3，为尖峰分布； 正态分布的峰 阅读全文
摘要：
1、使用旧表创建新表 SELECT * INTO CC FROM AA ; (适用于版本SQL SERVER) 阅读全文
摘要：
1、去除字符串中的数字 Function aa(sr As Range)Set reg = CreateObject("vbscript.regexp")With reg.Global = True.Pattern = "\d+"End Withaa = reg.Replace(sr, "") En 阅读全文
摘要：
##指定列求和 需求： 求和：列为“销售金额”的数值 Sub 求和()Dim i As Integer, j As IntegerFor i = 3 To 56For j = 15 To 81 Step 2Cells(i, 13) = Cells(i, 13) + Cells(i, j)Next j 阅读全文
摘要：
问题描述：汇总多个工作表的指定字段到sheet1里面，并去除重复的字段内容。 Sub 去重汇总（） Dim sht As Worksheet, j As Integer, x As Integer Set d = CreateObject("scripting.dictionary") For Ea 阅读全文
摘要：
sub 汇总多个工作簿() Application.ScreenUpdating = False Dim wb As Workbook, f As String, l As String, n As String, m As String, j As Integer f = ThisWorkbook 阅读全文