经常要把下载下来的csv格式的文件处理成xlsx格式,才能进行各种函数处理,如果有成千上百个csv文件那就会很费时间,以下宏代码保哥在office2016上亲测可用,现分享给大家,要注意源文件夹与目标文件夹的绝对路径要正确,并且最后的“\”不要丢: Sub CSVTOXLSX() Dim fDir As String Dim wB As ……
下面这段宏代码,运行后会弹出对话框,然后输入内容,即可批量删除内容所在的行。 Sub 删除特定字符所在行() Dim rng As Range ‘On Error Resume Next istr = InputBox(“请输入需要查找的字符:”, “查找”) If istr = “” Then Exit Sub arr = Split(……
删除空余行宏代码: 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 Works……
转置功能在wps和excel中都没有快捷键,但我们可以录制宏来实现快捷键,或者直接编辑宏代码: Sub 按钮1_单击1() Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub 还……