Excel月度CSV数据导入及自动化列添加与公式更新需求问询

嘿，我来帮你搞定这个Excel月度自动化的需求，分两个核心问题给你实用的本地解决方案，不用跳去其他网站：

一、自动添加月度Volume/Value列并导入CSV数据 #

方法1：用Power Query（无代码，适合新手） #

这是Excel自带的工具，能轻松实现重复的CSV导入和列扩展：

• 先把你的主Excel表格和每月的CSV文件放在同一个文件夹里，方便管理
• 打开主表格，点击「数据」选项卡 → 「获取数据」→「从文件」→「从CSV」，选中当月的CSV文件
• 在Power Query编辑器里，调整数据格式（比如确保Volume、Value的数值格式和主表格一致），然后点击「转换」选项卡 → 「转置」，把行转成列，再添加一列“月份”（手动输入当月，比如「2024-05」）
• 回到主表格，把现有数据转成结构化表格（选中数据区域按Ctrl+T，勾选「我的表格有标题」）
• 点击「数据」→「获取数据」→「合并查询」→「合并查询作为新查询」，把主表格和刚才处理好的CSV查询合并，选择匹配的行（比如产品ID），然后展开合并后的列，把当月的Volume和Value添加到主表格右侧
• 以后每月更新时，只需要右键主表格的查询连接，选择「刷新」，就能自动导入新月份的数据并添加列啦

方法2：用VBA宏（自定义性强，适合有基础的用户） #

如果需要更灵活的自动化，写个宏一键搞定：
按Alt+F11打开VBA编辑器，插入新模块，粘贴下面的代码（记得修改路径、表格名称这些参数）：

Sub ImportMonthlyData()
    Dim csvPath As String
    Dim wsMain As Worksheet
    Dim wsCSV As Worksheet
    Dim lastCol As Integer
    Dim currentMonth As String
    
    ' 设置参数，你需要根据自己的情况修改
    csvPath = "C:\你的文件夹路径\2024-05数据.csv"
    Set wsMain = ThisWorkbook.Worksheets("主表格")
    currentMonth = "2024-05" ' 可以改成自动获取当月，比如Format(Date, "YYYY-MM")
    
    ' 打开CSV文件
    Workbooks.Open csvPath
    Set wsCSV = ActiveWorkbook.ActiveSheet
    
    ' 找到主表格的最后一列
    lastCol = wsMain.Cells(1, wsMain.Columns.Count).End(xlToLeft).Column
    
    ' 插入新列：当月Volume和Value
    wsMain.Columns(lastCol + 1).Insert
    wsMain.Cells(1, lastCol + 1).Value = currentMonth & " Volume"
    wsMain.Columns(lastCol + 2).Insert
    wsMain.Cells(1, lastCol + 2).Value = currentMonth & " Value"
    
    ' 复制CSV里的Volume和Value数据到主表格
    wsCSV.Range("A2:A" & wsCSV.Cells(wsCSV.Rows.Count, "A").End(xlUp).Row).Copy _
        wsMain.Cells(2, lastCol + 1)
    wsCSV.Range("B2:B" & wsCSV.Cells(wsCSV.Rows.Count, "B").End(xlUp).Row).Copy _
        wsMain.Cells(2, lastCol + 2)
    
    ' 关闭CSV文件，不保存
    wsCSV.Parent.Close SaveChanges:=False
End Sub

以后每月只需要修改csvPath和currentMonth（或者改成自动获取当月），运行宏就能一键导入并添加列。

二、自动更新对应月份的公式（F/K/L列逻辑） #

方法1：用结构化表格自动扩展 #

如果你的主表格已经是结构化表格（Ctrl+T创建的），公式可以用结构化引用，这样添加新列后公式会自动适配：
比如原来F列的公式是=Table1[@[2024-04 Volume]] * 0.8（假设是某种计算），你可以改成动态引用最后一列的Volume：

=INDEX(Table1[@],COLUMNS(Table1[@])-1) * 0.8

这样不管添加多少新的Volume列，F列的公式都会自动引用当前行的最后一个Volume列数据。同理，K、L列可以用类似的逻辑引用对应的Value列。

方法2：用VBA宏自动复制并更新公式 #

如果需要严格对应新添加的月份列，也可以在上面的VBA宏里加一段代码，自动复制前一个计算列的公式到新列，并替换引用的列名：

' 复制F列的公式到新的Volume计算列（假设F是Volume的计算列）
wsMain.Cells(2, lastCol + 3).Formula = Replace(wsMain.Cells(2, lastCol).Formula, _
    wsMain.Cells(1, lastCol).Value, wsMain.Cells(1, lastCol + 1).Value)
' 自动填充公式到整列
wsMain.Cells(2, lastCol + 3).AutoFill Destination:=wsMain.Range(wsMain.Cells(2, lastCol + 3), _
    wsMain.Cells(wsMain.Cells(wsMain.Rows.Count, "A").End(xlUp).Row, lastCol + 3))

' 同理处理K、L列的Value计算列
wsMain.Cells(2, lastCol + 4).Formula = Replace(wsMain.Cells(2, lastCol - 3).Formula, _
    wsMain.Cells(1, lastCol - 3).Value, wsMain.Cells(1, lastCol + 2).Value)
wsMain.Cells(2, lastCol + 4).AutoFill Destination:=wsMain.Range(wsMain.Cells(2, lastCol + 4), _
    wsMain.Cells(wsMain.Cells(wsMain.Rows.Count, "A").End(xlUp).Row, lastCol + 4))

这段代码会把之前的计算列公式复制到新列，自动把公式里的旧月份列名替换成新的，不用手动修改。

备注：内容来源于stack exchange，提问作者hdfs dhiue