批量将csv转换成excel文件xlsx格式

经常要把下载下来的csv格式的文件处理成xlsx格式,才能进行各种函数处理,如果有成千上百个csv文件那就会很费时间,以下宏代码保哥在office2016上亲测可用,现分享给大家,要注意源文件夹与目标文件夹的绝对路径要正确,并且最后的“\”不要丢: Sub CSVTOXLSX() Dim fDir As String Dim wB As Workbook Dim wS As Worksheet Dim fPath As String Dim sPath As String fPath = "C:\User

Excel批量删除指定字符所在行

下面这段宏代码,运行后会弹出对话框,然后输入内容,即可批量删除内容所在的行。 Sub 删除特定字符所在行() Dim rng As Range 'On Error Resume Next istr = InputBox("请输入需要查找的字符:", "查找") If istr = "" Then Exit Sub arr = Split(istr, "、") With ActiveSheet For j = 0 To UBound(arr) For i = 1 To .UsedRange.Row + .U

Excel批量删除空行和空列

删除空余行宏代码: Dim LastRow As Long, r As Long LastRow = ActiveSheet.UsedRange.Rows.Count LastRow = LastRow + ActiveSheet.UsedRange.Row -1 For r = LastRow To 1 Step -1 If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r 删除空余列宏代码: Dim LastColumn

wps和excel添加转置快捷键的方法

转置功能在wps和excel中都没有快捷键,但我们可以录制宏来实现快捷键,或者直接编辑宏代码: Sub 按钮1_单击1() Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub 还有一种方法是在加载项里加入转置快捷菜单 链接: https://pan.baidu.com/s/16u9UW9tuU133OxuvXw9BOw 密码: 6gs5 下载网盘

EXCEL批量在数字前加半角单引号

我们在EXCEL中经常会遇到将身份证号、手机号之类超长数字进行处理,在前面加上单引号,特别是在使用VLOOKUP函数批量查询的时候,如果数字前没有加单引号是查询不了的,需要先批量在数字前加半角单引号’ 具体操作步骤如下: 先选取数字所在列或所在行中第一个单元格,比如选择B2单元格,在该单元格中的数据前加入半角英文单引号’,此时该单元格前左上角会有一个绿色小三角标记,要让所有的数字单元格都有此标记的话,接着继续下面的操作 选中B2单元格,单击“开始”选项卡→“剪贴板”组下的“格式刷”

批量合并EXCEL工作薄文件

批量合并EXCEL工作薄文件到同一张表里需要用到宏代码,操作并不复杂。先将要合并的EXCEL文件放在同一件文件夹里,然后再在这个文件夹里创建一个新的EXCEL文件并打开,右键单击工作表标签sheet1,找到“查看代码”,单击进去。进去之后就看到了宏代码输入界面,复制以下代码粘贴到编辑窗口: Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num

使用宏代码批量将csv文件合并在一个xslx表格文件里

很多软件和网站会有导出EXCEL表格的功能,但导出来的文件格式以csv格式较常见,有时需要将多个CSV文件合并在一个EXCEL表里,解决方法如下: 先将所有在合并的CSV文件放在同一件文件夹里,然后再在这个文件夹里新建一个xslx格式的EXCEL文件并打开,进入“开发工具”——“宏”,开启宏对话框后,宏名随便填写几个英文字母,点击右侧的“创建”,进入代码编写,复制以下代码粘贴进编辑框中: Sub 格式转换() Dim FilePath, MyFile, iPath As String iPath = Th

网上下载的EXCEL文件打开提示内存或磁盘空间不足的解决方法

网站在线生成的EXCEL报表下载打开后提示以下信息: 内存或磁盘空间不足,MICROSOFT EXCEL/WORD 无法再次打开或保存任何文档。 要想获得更多的可用内存,请关闭不再使用的工作薄或程序。 要想释放磁盘空间,请删除相应磁盘上不需要的文件 如下图: 很多人说可以增加虚拟内存来解决,其实这根本不能解决问题。下面的方法才是真正的解决方法: 用右键点击你下载的EXCEL文件,勾选解除锁定,再应用,再次打开即可。  

卸载WPS后安装的office图标不显示的解决方法

之前电脑上安装了WPS软件,但是发现WPS还是有很多功能比不上OFFICE,于是把WPS卸载掉,安装了OFFICE2016,安装完OFFICE2016后发现EXCEL2016图标是空白的,不能正常显示。用右键选择指定程序打开,也不能关联上EXCEL2016图标。原因是卸载WPS时勾选了“保留用户配置文件”,导致WPS卸载后Office无法自动关联显示.doc.xls.ppt等文档的图标。 解决方法如下: 1.重新安装WPS,在开始菜单找到WPS的“配置工具”并打开; 具体操作:开始–>所

Excel将一列数据批量处理截取成多列数据

最近工作上,经常要把一列有2000行数据的EXCEL表,分10个一行发出去,手工选择复制粘贴发了几天,感觉效率非常低,并且很容易出错。如下图所示,把蓝色这列数据截取成每10个数据一组到右边排列。(图片上的数据只是起演示作用,实际上是各种各样的数据甚至字符。) 后面研究了一下看看有没有EXCEL公式可以提前预处理好,最后找到了OFFSET函数,终于实现了这一功能。公式如下: =OFFSET($A$1,ROW(A1)-1+10*COLUMN(A1)-10,0,1,1)   将以下公式复制粘贴到B1单