excel之常用vba代码

合并当前sheet表之前的所有sheet表，并保存到当前sheet表（并在结尾添加一行“abc”，并指定字体和大小）Sub 合并sheet()Application.ScreenUpdating = False
For j = 1 To Sheets.CountIf Sheets(j).Name <> ActiveSheet.Name Thenx = Range("A65536").End(xlUp).Row + 1Sheets(j).UsedRange.Copy Cells(x, 1)End If
Next
Range("B1").Select
Application.ScreenUpdating = TrueDim i As Integeri = Range("a65536").End(xlUp).RowCells(i + 2, 1) = "abc"Cells(i + 2, 1).Font.Name = "微软雅黑"Cells(i + 2, 1).font.Size = 6End Sub

删除所有隐藏的行和sheet表Sub 删除隐藏()
Dim i As Integer
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Sheets(i).Visible = False Then
Sheets(i).Delete
Else
End If
Next iActiveWorkbook.SaveEnd Sub

删除除了名为‘Sheet1’表之外的所有sheetPublic Sub 删除所有sheet()
Application.DisplayAlerts = FalseDim i As IntegerFor i = Sheets.Count To 1 Step -1Debug.Print Sheets(i).NameIf Sheets(i).Name <> "Sheet1" ThenSheets(i).DeleteEnd IfNext
Application.DisplayAlerts = True
End Sub

合并指定列所有的相邻单元格内容相同的单元格Sub 手动合并单元格()
Dim l%, i%
Application.DisplayAlerts = False
k% = InputBox("请输入合并单元格所在列")
l = [A65536].End(xlUp).Row
For i = l To 2 Step -1If Cells(i, k) = Cells(i - 1, k) ThenRange(Cells(i - 1, k), Cells(i, k)).MergeEnd If
Next
Application.DisplayAlerts = True
End Sub
###
自动合并第1,2列所有的相邻单元格内容相同的单元格Sub 自动合并所有单元格()Dim l%, i%Application.DisplayAlerts = FalseFor k = 1 To 2l = [A65536].End(xlUp).RowFor i = l To 2 Step -1If Cells(i, k) = Cells(i - 1, k) And IsEmpty(Cells(i, k)) = False And IsEmpty(Cells(i - 1, k)) = False ThenRange(Cells(i - 1, k), Cells(i, k)).MergeEnd IfNextNextApplication.DisplayAlerts = TrueEnd Sub

按顺序执行设置的vba模块Sub 顺序()Call 删除隐藏Call 合并sheetCall 删除所有sheet
End Sub

excel之常用vba代码相关推荐

工具推荐：用VS code 导出、导入和运行Excel中的VBA代码
问题如何使用Excel的VBA 编辑器以外的IDE来编辑VBA代码? 如何导入/导出Excel中的VBA代码? 我能不能在Excel以外的地方运行VBA代码? 如何把Excel中的VBA工程/代码上 ...
Excel文档VBA代码自动删除
有时候,不想让自己编写的代码让别人长期使用或换地方使用,又不想让文档自杀,就可以设计限期清除代码,或其他限制条件下清除.具体限制条件可参考作者<Excel文档自杀程序设计>Workbook ...
Excel合并，VBA代码，最后一列填充文件名
想合并很多excel表格,搜索了下论坛,看到很多大佬们的作品,但是我想在第一列显示合并的excel名称,寻找一圈没有找到,因此在该链接下的宏上填写了一些. 下载链接:把多个EXCEL文件合并成一个文件 ...
python和vba操作excel_python调用excel中VBA代码
python中调用excel中的VBA代码,本机需要安装python以及该python版本对应的"pywin32-214.win32-py2.5.exe" #!/usr/bin/e ...
c# excel导出png_批量导出Excel文件中的图片，用VBA代码其实很简单
本次案例来自悟空问答网友提问,之前由于时间原因,回复比较简单没有给出具体实现方法,今天花时间整理写成图文,希望小伙伴们都可以学会.@沉默的生物钟实际问题一.数据模拟--素材准备为了更加真实的还原 ...
WPS excel VBA 常用功能代码
VBA中单元格位移方法,解释: submy_offset (0,1).Select'当前单元格向左移动一格 (0,-1).Select'当前单元格向右移动一格 (1,0).Select'当前单元格向下 ...
vba代码编程800例_VBA编程常用“积木”过程代码Address的含义
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 大家好,今日继续和大家分享 ...
vba代码编程800例_一组实用的VBA常用编程代码语句分享
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 分享成果,随喜真能量.大家 ...
vba代码编程800例_VBA编程常用过程代码实例2630
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 分享成果,随喜真能量.大家 ...

excel之常用vba代码

excel之常用vba代码相关推荐

最新文章

热门文章