自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(7)
  • 收藏
  • 关注

原创 将某列空白单元格所在的行删除#Excel VBA#

如题,预计打算把黄色标示的行全部一齐删除。如果数据比较大达到几十万行的话,循环寻找A列为空则比较低效。若用SpecialCells函数把空白单元格全部找到而且选中,则不需要循环,速度较快。Sub Test ()dim blk, blk2 as range dim m as LongRange("A1:A" & lRow).SpecialCells(xlCellTypeBlanks).Select Set blk = Selection Set blk2 = Rows(S.

2021-03-11 22:49:50 1864 2

原创 怎样批量修改文件名#经验#

我有以下PDF文件:在此文件夹按住Shift键,右键鼠标,打开Powershell。指令输入dir *.* >1.txt(列出当前目录下的所有文件到 1.txt文件)在文件夹中看见一个文本文件夹:选中复制到Excel:数据→分列:留下需要的:修改为:在新开一列,比如最后输入DOS命令:=CONCATENATE("ren ",A2," ",B2)在文件夹...

2020-04-27 21:33:34 669

原创 如何找出含有某个关键字的列名所存在的表#SQL Server# #DBA#

比如我们要找出数据库里列名中含有“paym”的表:SELECT B.name ,A.nameFROM [DataWarehouse].[dbo].syscolumns ALEFT JOIN(SELECT * FROM [DataWarehouse].[dbo].sysobjects)BON A.id=B.idWHERE A.name like '%paym%'谢谢!...

2020-04-27 00:08:18 261

原创 如何比较快速地对比两个数据量比较大的表是否存在差异,且每行中每列数值都相同才算匹配#Excel VBA#

如何比较快速地对比两个数据量比较大的表是否存在差异,且每行每列都相同才算匹配。近段时间工作中,需要对比两个Excel中对应的数据是否相同匹配(保证每一行中每一列数据都相同才算匹配),两个表都有15列,加起来超过150w行,如果用vlookup则相当费时间,而且Excel非常容易崩溃。我发现比如以下:表一:表二:缩小了样本,如果每列都要检查,那么每行中数据都得要搭配在一起,我在这里先从...

2020-04-26 14:21:18 2027 1

原创 “此用户无法登陆,因为该用户当前已被禁用“,应该怎么解决?#经验#

一晚突然发现登陆不了WINDOWS,以至于进不了电脑。打PIN就会出现:“此用户无法登陆,因为该用户当前已被禁用”。打密码登陆却显示密码错误,重置了密码也是徒劳。后来我觉得是自己误操作,禁用了自己账户。以下为解决方法:先shift + 界面的重启键→疑难解答→高级选项→启动设置→重启→启用安全模式然后右键电脑→管理打开本地用户和组→用户找到自己的账户右键→属性勾掉...

2019-04-04 23:20:39 52357 3

原创 如何用VBA打开百度,且输入关键字,点击搜索#Excel VBA#

Private Sub CommandButton1_Click()Set ie = CreateObject(“internetexplorer.application”)ie.Visible = Trueie.navigate " http://www.baidu.com"While ie.busy Or ie.readystate <> 4Wendie.Documen...

2019-03-30 22:43:41 1376 1

原创 怎样对比两列名字(数据)是否相似/相同 #Excel#

我在工作时,对比两份报告的英文名字的时候,发现用简单地 = 无法作出正确的判断是否相同。比如:前提是我们知道这两份报告名字都是同一个人的,只是表示的格式不一样,可以看到有些有Mr或者Ms 的称谓,而且第一列明显First Name 在后面,Last Name 在前面。直接运用等于公式达不到效果。而用=FIND(RIGHT(A1,LEN(A1)-FIND(",",A1)),A1)可以基...

2019-03-30 15:35:24 7671

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除