07 2017 档案

[VBA]合并工作簿优化版
摘要：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 = 阅读全文
posted @ 2017-07-28 16:25 苏苏叶 阅读(362) 评论(0) 推荐(0)
[Python]if语句的练习
摘要：习题： 小明身高1.75，体重80.5kg。请根据BMI公式（体重除以身高的平方）帮小明计算他的BMI指数，并根据BMI指数：低于18.5：过轻 18.5-25：正常 25-28：过重 28-32：肥胖 高于32：严重肥胖 用if-elif判断并打印结果： 代码： height=int(input( 阅读全文
posted @ 2017-07-26 14:52 苏苏叶 阅读(2998) 评论(0) 推荐(0)
[SPSS]学习笔记--数据分布形状描述
摘要：以下内容摘自：公众号- SPSS生活统计学 保存做复习之用。 峰度（Kurtosis） 峰度是描述总体（样本）中所有取值分布形态陡缓程度的统计量。通过计算可以得到峰度系数，峰度系数与分布形态的关系是： 峰度系数=3，扁平程度适中； 峰度系数<3，为扁平分布； 峰度系数>3，为尖峰分布； 正态分布的峰 阅读全文
posted @ 2017-07-18 10:24 苏苏叶
[SQL]数据库常用语句
摘要：1、使用旧表创建新表 SELECT * INTO CC FROM AA ; (适用于版本SQL SERVER) 阅读全文
posted @ 2017-07-17 22:45 苏苏叶 阅读(203) 评论(0) 推荐(0)
[VBA]利用正则表达式创建函数处理字符串
摘要：1、去除字符串中的数字 Function aa(sr As Range)Set reg = CreateObject("vbscript.regexp")With reg.Global = True.Pattern = "\d+"End Withaa = reg.Replace(sr, "") En 阅读全文
posted @ 2017-07-17 22:32 苏苏叶 阅读(1652) 评论(0) 推荐(0)
[VBA]指定列求和
摘要：##指定列求和 需求： 求和：列为“销售金额”的数值 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 阅读全文
posted @ 2017-07-17 16:10 苏苏叶 阅读(4839) 评论(0) 推荐(0)
[VBA]去重汇总
摘要：问题描述：汇总多个工作表的指定字段到sheet1里面，并去除重复的字段内容。 Sub 去重汇总（） Dim sht As Worksheet, j As Integer, x As Integer Set d = CreateObject("scripting.dictionary") For Ea 阅读全文
posted @ 2017-07-14 11:36 苏苏叶 阅读(3494) 评论(0) 推荐(0)
[VBA]汇总多个工作簿的指定工作表到同一个工作簿的指定工作表中
摘要：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 阅读全文
posted @ 2017-07-14 11:28 苏苏叶 阅读(6613) 评论(0) 推荐(0)
[VBA]批量新建指定名称的工作表
摘要：sub 批量新建指定名称的工作表() Dim i As Integer For i = 2 To 10 '根据实际情况修改i大小 Worksheets.Add after:=Worksheets(ThisWorkbook.Worksheets.Count) ActiveSheet.Name = Sh 阅读全文
posted @ 2017-07-14 11:19 苏苏叶 阅读(2157) 评论(0) 推荐(0)
[VBA]删除多余工作表
摘要：sub 删除多余工作表() Dim i As Integer Application.DisplayAlerts = False For i = Worksheets.Count To 1 step -1 If i >7 Then ThisWorkbook.Worksheets(i).Delete 阅读全文
posted @ 2017-07-14 11:17 苏苏叶 阅读(1297) 评论(0) 推荐(0)
[VBA]获得工作表名称
摘要：sub 获得工作表名称() Dim i As Integer For i = 1 To Worksheets.Count Cells(i, 2) = Worksheets(i).Name Next End Sub 阅读全文
posted @ 2017-07-14 11:16 苏苏叶 阅读(959) 评论(0) 推荐(0)
[Python]斐波那契数列
摘要：##斐波那契数列 f=[0,1] for i in range(2,20): a=f[i-1]+f[i-2] f.append(a)print(f) 效果图： 阅读全文
posted @ 2017-07-14 11:14 苏苏叶 阅读(179) 评论(0) 推荐(0)
[VBA]斐波那契数列
摘要：Sub 斐波那契()Dim arrFor i = 3 To 100Cells(1, 1) = 0Cells(2, 1) = 1Cells(i, 1) = Cells(i - 1, 1) + Cells(i - 2, 1)NextEnd Sub 效果图 阅读全文
posted @ 2017-07-13 18:01 苏苏叶 阅读(1375) 评论(0) 推荐(0)