- 博客(5)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 EXECL 用VBA 隔行填有规律的数据
如上图中，在A行自动插入如B行有规律的值，1 -12月份。Sub ghts()Dim i As Integer '12个月Dim n As Integer '6Dim y As Integer '月份Dim yf As Stringy = 2For i = 1 To 12 For n = 1 To 6 If n < 6 Then yf = CStr(i) + "月" Cells(y, 1) = yf y = y + 1 ...
2021-08-24 22:08:00
489
原创 求A列小于B列两两之间的首次行数
百度中回答别人提的问题，但回答的内容不知啥原因违背回答规则，不让显示。例如A列83和89之间，小于B列76，首次遇到的是73即第7行；再如A列89和73之间，小于B列66，首次遇到的是59即第12行用宏方法解决：Sub schs() Dim i As Integer 'b行循环值 Dim s As Integer 'b行下一个不为0的值 Dim n As Integer 'A行循环 Dim y As Integer '记录B行当前不为0的行供A行.
2021-08-24 21:15:12
103
原创 EXECL 获取断续数据的开头和结尾的数据(宏)
需求： 判断序号行的数据是否连续，在开头字段写入序号中连续数据的第一个数，结尾字段写入连续数据的最后一个数。Sub 判断是否连续() Dim i As Integer Dim s As Integer '写入开头第一个数据 Cells(2, "C") = Cells(2, "B") '记录结尾数据需要写入的行数 s = 2 For i = 3 To 30 '判断下一行数据和上一行数据是否连续 If Cells(i, ...
2021-08-23 19:55:34
240
原创 python文件按内容比较去重，编译成EXE可执行文件下载
#文件去重#参考： https://blog.youkuaiyun.com/qq_43965708/article/details/119516231?utm_medium=distribute.pc_category.none-task-blog-hot-2.nonecase&depth_1-utm_source=distribute.pc_category.none-task-blog-hot-2.nonecasefrom pathlib import Pathimport filecmpim.
2021-08-11 20:36:10
131
原创 python 报错：ModuleNotFoundError: No module named ‘openpyxl‘，安装openpyxl后还是报错解决方法。
版本: PyCharm Community Edition 2021.1.1 x64 ,python3.9.import pandas as pddata = pd.DataFrame([[1, 2], [3, 4], [5, 6]], columns=['A列', 'B列'])data.to_excel(r'd:\444.xlsx')执行时报错，内容如下：Traceback (most recent call last): File "D:\Python\练习\python让EXEC...
2021-08-10 21:39:30
19760
3
比较程序文件夹中test目录下的文件内容并删除重复文件。
2021-08-11
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人