Sub VBA小程序_遍历所有工作表_取消隐藏所有行_列()
    Dim shp As Shape, sht As Worksheet
    Rem On Error Resume Next '忽略报错，防止有#N/A
    Rem 遍历所有工作表，取消隐藏行 + 列
    For Each sht In Worksheets
        sht.Activate
        sht.Cells.EntireColumn.Hidden = False   '取消隐藏所有行
        sht.Cells.EntireRow.Hidden = False   '取消隐藏所有列
    Rem On Error GoTo 0 '恢复报错
End Sub
1、系统内修改，如果会用VB和python，可能系统内修改效率最高；
2、shp格式，直接修改dbf文件，记住，用wps打开修改后可以直接保存；MS office高版本不支持直接保存。
参考这篇文章：
win10系统下如何修改ArcGIS的dbf文件_登山之猪金金金华好-GIS的博客-CSDN博客_arcgis dbf文件
3、mdb格式，用access打开后修改，上次做了个excle读取修改提交的尝试，下次找找代码在补一下。
总体思路是：excel读取access里
                                    1.1 VBA是什么　　直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA),可以认为VBA是非
       Sheets(i).Range("A" & usedRows).Select
       Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormat...
                                    我这里是关键词是 "测试"，逻辑是：现实情况中，不方便/不允许使用On Error的情况下，我们可换一个思路，可以判断是不是Nothing
1、先说第一种情况：遍历所有工作表，是否存在某一个关键词
Sub 搜索确认()
    Dim sht As Worksheet, a
    For Each sht In Worksheets
        sht.Activate
        Set a = Cells.Find(What:="测试")
        'Debug.Print()，可
                                    这只是技术的一个例子........你必须修改它以满足你的需要 . 说我们有：使用单元格 C1 中的数据验证下拉菜单 . 将此事件宏放在工作表代码区域中：Private Sub Worksheet_Change(ByVal Target As Range)Dim t As Range, mn As VariantSet t = Range("C1")If Intersect(t, Target) ...
                                    我正在努力清理3张excel表中的一些表格.我的代码在Excel 2007中运行良好,因为我切换到excel 2010我开始得到此运行时错误自动化错误调用的对象已与其客户端断开连接,错误号为-2147417848然后excel冻结.在线上运行此功能2次后显示错误Sheets("Risk Details").Range("A3" & ":BV" & (count + 1)).Dele...
=========================================================================
1、汇总当前文件夹下所有工作簿中所有sheets
=========================================================================
Sub Co..