- 博客(19)
- 资源 (6)
- 收藏
- 关注
RSS订阅原创 在Excel中使用SUMPRODUCT和COUNTIF函数实现去重计数
Excel实现非重计数，在Excel中使用SUMPRODUCT和COUNTIF函数实现去重计数
2023-10-11 11:50:01
3318
原创 EXCEL去除特殊格式的方法，去除单元格值为空的公式，去除异常公式
在操作数据时，空格、换行符、单引号、不可见字符会影响到我们对数据的处理，我们可以使用WPS EXCEL自带的工具进行清理。在开发工具，visual vasic 编辑器中运行以下代码，可以清除所有为空的有公式的单元格，及公式错误的单元格。如果单元格中有公式，此种清理方式是。Excel清除空值公式和公式异常演示视频。开始-清理-特殊字符。
2023-10-10 13:50:30
231
原创 MySQL8.0关闭 ONLY_FULL_GROUP_BY模式
打开你的MySQL数据目录，找到my.ini文件。一般默认数据目录：C:\Program Files\MySQL\MySQL Server *.*打开文件，在文件最下面添加，如图所示内容，保存即可。
2023-10-10 11:15:52
939
原创 ExcelVBA 宏 查找最后一列，查找最后一行，查找最后一个单元格
ExcelVBA 宏 查找最后一列，查找最后一行，查找最后一个单元格。返回最后一行行数，返回最后一列列数，返回最后一个单元格地址
2022-07-15 09:20:24
7793
1
原创 Excel 获取最大值的位置单元格地址 通过位置获取单元格的值
获取的逻辑：先获取左上角的单元格行列信息（通过row和column函数），然后获取要找的值在这个区域的相对位置（match函数），行与行相加得到最终的行，列与列相加得到最终的列，再通过address函数转化为单元格地址。几个函数的使用方法自行查询，这里不多介绍。获取单元格地址第一种=ADDRESS(ROW(B3)+MATCH(MAX(B3:B9),B3:B9,0)-1,COLUMN(B3),4)第二种=CHAR(64+COLUMN(B3))&(ROW(B3)+MATCH(MAX(B3:
2021-10-19 15:36:56
2911
原创 ExcelVBA 宏 将数字转换为列号/列字母/列名 数字字母转换
1.利用自带的columns函数如Columns(27).Address表示27列的地址，也就是"$AA:$AA"2.使用split函数按照字符"$"进行拆分得到数组，索引为2的就是我们需要的列字母Function ColLetter(Num As Long) As String ColLetter = Split(Columns(Num).Address, "$")(2)End Function......
2021-10-11 09:41:35
7567
1
原创 VBA 连接数据库
ExcelDim conn As New ADODB.Connectionconn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\adta\data.xlsx;extended properties=""excel 12.0;HDR=YES"""AccessstrConn = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Adata.accdb"Mysql数据
2021-07-23 11:43:53
726
原创 VBA 字母和数字互换，Cells和Range转换
这里给两个写好的函数1.数字转为字母，输入数字即可转化为列号(这里最大到ZZ)，比如：NumToLetter(28)="AB"Function NumToLetter(num As Long) As StringDim alphabet()'a-z字母表alphabet() = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U
2021-05-20 16:54:23
4493
3
原创 VBA 判断inputbox是否输入,是否为空,是否为整数
Sub test()'输入需要的数字examRoomCol = InputBox("请输考场号所在列？例：14")If StrPtr(examRoomCol) = 0 Then MsgBox "点击了取消或是直接关闭了窗口。"Else If Len(examRoomCol) = 0 Then MsgBox "输入了空白值。" ElseIf IsNumeric(examRoomCol) = False Then MsgBox "输入...
2021-05-20 16:40:34
4602
VBA 按照某一列进行筛选拆分数据，拆分成多个表或多个Sheet，按某列检查重复生成新的Sheet，删除除本表外的所有表
2021-05-21
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人