文章分类 -  Excel

Excel公式中的换行符
摘要：Excel的换行符可以用 char(10) 来表示，如： = A1 & CHAR(10) & B1 阅读全文
posted @ 2025-05-15 08:28 汉学 阅读(11) 评论(0) 推荐(0)
用 Excel 表格中的数据批量替换 docx 模板中的标记（原创）
摘要：# 修改模板文件后，DOC中段落受格式影响，可能导致占位标记被分割成两个段落，出现这种情况可以将模板中 # 全部内容以“无格式文本”粘贴到新文档中，重新设置格式，可纠正错误的段落分割 import docx import xlwings as xw import sys import time im 阅读全文
posted @ 2025-04-11 10:54 汉学 阅读(15) 评论(0) 推荐(0)
提高 VBA 的运行速度
摘要：优化VBA（Visual Basic for Applications）代码以提高运行速度通常涉及以下几个方面： 常规优化 1. 使用合适的数据类型 尽量使用整数（Integer）或长整数（Long）而不是变体（Variant）类型，因为整数类型的处理速度更快。 对于大量数据，使用数组而不是单个变量 阅读全文
posted @ 2024-10-06 09:52 汉学 阅读(491) 评论(0) 推荐(0)
使用 OLE 方式编辑 excel 文件（原创）
摘要：使用 OLE 方式编辑 excel 文件，只要系统中双击 .xlsx 文件可以打开，就可以用 delphi 程序编辑，版本是否兼容肉眼可见。 uses ComObj; var ExcelApp: variant; fName: string; i, iRowNum: Integer; begin t 阅读全文
posted @ 2024-08-18 11:06 汉学 阅读(97) 评论(0) 推荐(0)
xlwings 模块基本操作
摘要：xlwings是Python操作excel读写操作的第三方库，支持对 xls 和 xlsx 文件的读写，相对于其他第三方库xlrd, xlwd, openpyxl等效率高，读写速度快，可扩展性强。可以和matplotlib以及pandas无缝连接，也可以调用Excel文件中VBA写好的程序，和让VB 阅读全文
posted @ 2024-01-09 15:54 汉学 阅读(275) 评论(0) 推荐(0)
计算选中区域内的平均分，及格率，优秀率
摘要：写入 workbook 的 SheetSelectionChange 事件中可以在多个工作表之间共用 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If (Target.Col 阅读全文
posted @ 2022-07-14 15:17 汉学 阅读(101) 评论(0) 推荐(0)
python里面的xlrd模块详解
摘要：#python里面的xlrd模块详解 ##1.什么是xlrd模块？ python操作excel主要用到xlrd和xlwt这两个库，即xlrd是读excel，xlwt是写excel的库。 今天就先来说一下xlrd模块： ##一、安装xlrd模块 ♦ 到python官网下载http://pypi.pyt 阅读全文
posted @ 2020-09-27 11:03 汉学 阅读(123) 评论(0) 推荐(0)
取得指定列的第一个可用空白行的行号
摘要：NextRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 这句话的意思是 取活动单元表的第一列最后一个有值的行的下一行行号。 Rows.Count是指当前活动工作表的行数，为数字 1048576，很熟悉的一个数字，为Excel工作表的最 阅读全文
posted @ 2020-08-19 12:17 汉学 阅读(782) 评论(0) 推荐(0)
VBA常用代码（原创）
摘要：工作表操作 ' 关闭警告，否则删除工作表时将出现提示信息 Application.DisplayAlerts = False ' 删除以字母“C”开头的临时模板 For Each a In Worksheets If Left(a.Name, 1) = "C" Then a.Delete ' If 阅读全文
posted @ 2020-07-27 06:11 汉学 阅读(1286) 评论(0) 推荐(0)
Excel 2010 启动后不是最大化
摘要：Excel 2010 启动后不是最大化，手动最大化后关闭，再次启动后还是没有最大化显示 Private Sub Workbook_Open() Application.WindowState = xlMaximized End Sub 用VBA设置一下，保存到个人宏工作簿，再次打开工作薄时即可最大化 阅读全文
posted @ 2020-05-07 11:01 汉学 阅读(1192) 评论(0) 推荐(0)
Excel中记录最后修改时间
摘要：在需要记录的sheet中编写如下脚本： Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Exit Sub '避免死循环 Range("a2") = "最后修改日期：" & Date 阅读全文
posted @ 2020-03-17 10:47 汉学 阅读(1221) 评论(0) 推荐(0)
如何快速自动填充空白单元格上一行的内容
摘要：本例向大家介绍如何在excel通过基础操作方法批量快速填充空白单元格为上一行的内容。 工具/原料 Excel 操作过程： 首先，从第一个单元格开始选中要填充的数据区域。 按Ctrl+G或者F5调出定位对话框，点击左下角的【定位条件】。 在【定位条件】中选择【空值】，然后点击【确定】按钮。 按照上述操 阅读全文
posted @ 2018-05-25 14:26 汉学 阅读(8113) 评论(0) 推荐(0)
如何将引用的单元格的位置也使用参数表示
摘要：如何将引用的单元格的位置也使用参数表示 一、使用INDIRECT的A1样式，如下图 =INDIRECT("A"&C1) 二、使用INDIRECT的R1C1样式，如下图 =INDIRECT("R"&C1&"C1",0) 三、使用INDEX函数，如下图 =INDEX(A:A,C1) 四、使用OFFSET 阅读全文
posted @ 2017-09-15 08:10 汉学 阅读(560) 评论(0) 推荐(0)
改进后的自动筛选代码（原创）
摘要：下面的代码是在修改关键字单元格时自动触发，所以要写在 WorkSheet 中：关于查询关键字要查询的关键字应该放在两行，上面一行为列标题，下面一行为对应的取值，如要查询4年4班的学生，： Private Sub Worksheet_Change(ByVal Target As Range) If T 阅读全文
posted @ 2017-08-31 14:19 汉学 阅读(287) 评论(0) 推荐(0)
使用高级筛选实时搜索数据（转）
摘要：使用高级筛选实时搜索数据（转） 2016-06-01 zy风清云淡 2016-06-01 zy风清云淡 有一组数据，有时我们希望能实时检索数据，就像百度搜索那样。高级筛选为我们提供了这一可能。下边是我的原始数据(A4:C1251)。 下边先看下最终的效果。 如果我想搜名字中带“强”字的同学。我只需要 阅读全文
posted @ 2017-08-30 16:29 汉学 阅读(679) 评论(0) 推荐(0)