Question

再次泡菜！

我有一些vba代码，可将多个工作表中固定范围的单元格编译为单个合并工作表。到目前为止，一切都很好。

我现在想做的是向所有合并的数据添加一些附加列，这些列具有我正在使用的分析的某些属性。

例如：

Sheet       Revenue Costs   Data Run date   Username    File name
Sheet 1     452.34  234.65  05/08/2019      sk          consol file
Sheet 2     7984.34 2234.34 05/08/2019      sk          consol file
Sheet..      ...    ... ...         ...        ...

因此，我现有的宏涵盖了前三列，该列是动态的，并且基于书挡之间的工作表中的计算。但是，这是我要坚持的最后三列，根据具体的分析运行，这些列将是静态的。对于所有包含值的订单项，这些列均填充有相同的信息。

这是我现有的代码：

Sub compiler2()

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Dim i As Long


    Application.Calculation = xlCalculationManual

   For i = Sheets("start").Index + 1 To Sheets("end").Index - 1
      Sheets(i).Range("J3:CU4,J23:CU29,J35:CU54,J56:CU58,J62:CU71,J74:CU84").Copy
      Worksheets("consol").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, Transpose:=True
   Next i
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
   Application.Calculation = xlCalculationAutomatic


End Sub

编译多个工作表-添加带有静态数据的其他列

0 个答案: