如何自动从工作表单元格导入动态数组值批量生成Pivot Table？

完全可以实现自动从Parametre工作表F6单元格导入日期值来生成数组，替代手动维护操作。具体修改方式如下：

核心思路 #

1. 读取Parametre工作表F6单元格内的日期列表（需用统一分隔符，比如逗号分隔多个日期）
2. 将读取到的文本字符串拆分为数组
3. （可选）将数组中的文本转换为日期类型，避免格式不匹配问题
4. 把生成的数组赋值给VarPages.array

修改后的代码片段 #

假设你原本的代码中手动维护数组的部分是类似VarPages.array = Array("2024/01/01", "2024/02/01")，替换为以下代码即可：

' 读取Parametre工作表F6单元格的日期字符串
Dim dateSource As String
Dim dateArray As Variant
Dim idx As Integer

dateSource = ThisWorkbook.Worksheets("Parametre").Range("F6").Value
' 按逗号拆分字符串为数组（可根据实际分隔符调整，比如分号）
dateArray = Split(dateSource, ",")

' 清理空格并转换为日期格式（确保和数据源日期格式一致）
For idx = LBound(dateArray) To UBound(dateArray)
    dateArray(idx) = CDate(Trim(dateArray(idx)))
Next idx

' 替换手动数组为自动生成的日期数组
VarPages.array = dateArray

注意事项 #

• 确保F6单元格内的多个日期用统一分隔符（比如逗号、分号）分隔，不要混⽤
• 如果F6单元格是引用的日期区域（比如F6到F10的单元格范围），则调整读取逻辑为：

  Dim dateRange As Range
  Set dateRange = ThisWorkbook.Worksheets("Parametre").Range("F6:F10")
  dateArray = Application.Transpose(dateRange.Value)
  

• 测试时确认转换后的日期格式和数据透视表数据源中的日期格式完全匹配，避免出现筛选不到数据的情况

内容的提问来源于stack exchange，提问作者Jonathan Tere uta