- 博客(8)
- 收藏
- 关注
原创 整理合并各工作表的某行(列)到一个工作表
应用于这样一种场景——现在有一份有100个工作表的Excel文件,这100个工作表中都有一个名称为“资产负债率”的行数据,每个工作表对应一个公司名称。需求:将每个公司的“资产负债率”数据全部整理到新建的工作表。VBA代码如下:第一步:合并行数据:Sub 合并行数据()''Dim i As Byte '定义一个Byte类型的变量,名称为i For i = 1 To Worksheets.Count - 1 Step 1 'i从1到“工作表的数量-1”循
2021-10-12 10:02:17
489
1
原创 EXCEL计算固定资产折旧公式、模板
一、完整公式=IF(LEFT(C6,4)>"2013",0,IF(LEFT(C6,4)="2013",12-MID(C6,5,2),IF(LEFT(C6,4)+E6=2013,MID(C6,5,2),IF(LEFT(C6,4)+E6<2013,0,IF(LEFT(C6,4)+E6>2013,12,MID(C6,5,2))))))二、涉及函数的说明LEFT( )函数的语法格式=left(text,num_chars) text代表用来截取的单元格内容。 num_ch.
2020-07-30 11:05:28
2413
原创 双条件的数据对比,两组数据中同时满足两个控制条件的数据比较
统计T人员编制的发生额与入账时间和S人员编制的发生额与入账时间的数据中有多少相同的多少不同的(发生额与入账时间同时相等)。一、利用公式 “=A3&B3” ,将发生额与入账日期转换成一个值。 二、利用公式 " =IF(VLOOKUP(C3,G:G,1,0)=C3,“同”,“不同”) "...
2020-07-28 17:07:19
1163
原创 VBA实现 Excel自动填充
遇到这种情况时,使用!数百次的向下自动填充,手动敲?简单的VBA代码搞定:Sub 自动填充()Dim i As IntegerFor i = 2 To 743 If Range("b" & i) = "" Then '此时只循环判断,填充了B列,只需手动更改一下代码中的"b".(下一段代码也要改) Range("b" & i) = Range("b" & i).Offset(-1, 0) End IfNextEnd Sub
2020-05-11 11:07:25
4903
原创 VBA根据某列内容创建工作表
Sub chaifenshuju()Dim sht As WorksheetDim k, i, j As IntegerDim irow As Integer Dim l As Integerl = InputBox("请输入你要按哪列分") '删除无意义的表Application.DisplayAlerts = FalseIf Sheets.Count &...
2020-05-05 21:14:18
1414
原创 《跟着王老师学Excel VBA》的笔记
一、基础语法'创建子程序sum abc() .....end sum '定义自变量的类型Dim i=.... 'For循环for i = 1 to 5 Step 2 'Step定义步长...Next '循环结构(循环五次)'单元格的表示Rang...
2020-05-05 00:00:30
6918
7
原创 Python 实现 凯撒密码,嵩天课程 测试题
此为,中国大学MOOC----Python基础课程的题目。仅供参考学习!def change(c,i): num = ord(c) #返回Unicode编码 if num >= 97 and num <= 122: #输入的字母是小写时执行。 num = 97 + ((num - 97) + i) % 26 elif num >=...
2018-07-02 21:06:09
1608
原创 Python 实现 水仙花数,嵩天课程 测试题
此为,中国大学MOOC----Python基础课程的题目。仅供参考学习!lk = [] #创建一个空列表for x in range(1,10): for y in range(10): for z in range(10): s = x*100+y*10+z #生成100 — 999 k = x**3+y**...
2018-07-02 20:59:08
371
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人