分类目录归档：未分类

未分类

拨云见日：人工智能引领数据处理的新纪元

一条评论

前段时光，我挥毫成文，题为《CHATGPT在EXCEL中的应用》，借此篇幅向世人介绍VBA之妙用。在那之前，VBA对我而言犹如迷雾中的幽灵，虽然它的出现让我工作顺遂，但终究瑕疵尽显。VBA在循环分配的处理上，效率低得令人痛心，十几万行的Excel表格竟需耗费数个小时。

不久前，书写季度总结之际，我急需热力图来揭示各区域的差异。简要阐述需求后，ChatGPT推荐我以Python编程语言和Geopandas库（后更改为bokeh库）作地理数据可视化之伎俩。对我这个仅闻Python之名、不通编程之道的人来说，这道难题堪比攀登险峰，但只消一个晚上，我终得以攻破。

回顾往日难题，我不禁思索：用Python来处理循环分配，效率是否能够得以提升？这次仅七段对话，ChatGPT便为我写下了完美的代码，十几万行数据分配瞬息之间便已完成，近乎完美。

诚然，这两个应用并不算复杂。我曾见过有人将人工智能喻为屠龙之刀，其威力随使用者之能力而增减。未来人工智能在工作中是否会取代人类，尚无定论，然而，人确能取代人。唯学无止境，我们绝不能驻足。

未分类

统计EXCEL工作簿中工作表数量的方法

一条评论
统计EXCEL工作簿中工作表数量的方法

如果你使用 Microsoft Excel，可以使用 VBA 代码来统计一个 Excel 工作簿中有多少个工作表。

  1. 打开 Excel 工作簿
  2. 按 ALT + F11 打开 VBA 编辑器（或在开发工具中打开）
  3. 在模块窗口中粘贴以下代码：
  4. 按 F5 运行代码，你将看到一个对话框，显示当前工作表中工作簿的数量。
Sub CountSheets()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim sheetCount As Integer
    sheetCount = 0
    Set wb = ThisWorkbook
    For Each ws In wb.Worksheets
        sheetCount = sheetCount + 1
    Next ws
    MsgBox "工作表数量：" & sheetCount
End Sub

请注意，上面的代码仅适用于 Microsoft Excel，并不适用于其他电子表格软件。