如何编写 VBA 代码？

Question

在一个工作簿中有 多个工作表；工作表的名称 有些有规律的，有些没有，如何用VBA 代码提取 有相似的 “月份”工作表出来，定义 这些工作表为 一个 工作表集合sh 然后就在 这个集合SH 中 提取 需要的文本

Answer 1

以下是一个示例 VBA 代码，可以提取指定名称规律的工作表并定义为一个工作表集合：

``` VBA
Sub extract_monthly_sheets()
Dim sh As New Collection
Dim ws As Worksheet
Dim sheetname As String

'遍历每个工作表
For Each ws In ActiveWorkbook.Worksheets
sheetname = ws.Name '获取工作表名称
'判断工作表名称是否符合要求
If InStr(sheetname, "月份") > 0 Then '在工作表名中查找“月份”关键字
sh.Add ws '如果符合要求，将工作表添加到集合中
End If
Next ws

'遍历集合中的工作表
For Each ws In sh
Debug.Print ws.Name '在调试窗口输出工作表名称
Next ws
End Sub
```

在这个示例中，代码首先声明了一个 Collection 对象 sh，用于存储符合名称规律的工作表。然后通过遍历每个工作表，使用 InStr 函数查找工作表名称中是否包含“月份”关键字，如果包含，则将该工作表添加到集合中。最后遍历集合中的工作表，输出它们的名称。

你可以根据实际情况修改代码中的关键字和名称规律，来提取指定工作表。也可以根据需求对集合中的工作表进行进一步的操作。