|
- Sub 宏1()
- Application.ScreenUpdating = False
- Dim finalrow As Integer
- Dim pa As String
- pa = ThisWorkbook.Path
- finalrow = [f65536].End(xlUp).Row
- With Sheets(3)
- .Columns("C:C").Cut
- .Columns("A:A").Insert Shift:=xlToRight
- End With
- With Workbooks("计算.xlsm").Sheets(1).Range("a3:a" & finalrow)
- .Value = [f1].Value
- .Offset(, 1).Value = [g1].Value
- .Offset(, 2).Value = [i1].Value
- .Offset(, 3).FormulaR1C1 = "=VLOOKUP(rc6,项目对照表!C1:C3,2,0)"
- .Offset(, 4).FormulaR1C1 = "=VLOOKUP(rc6,项目对照表!C1:C3,3,0)"
- Workbooks.Open pa & "\产量.xlsx"
- Workbooks.Open pa & "\单价.xlsx"
- .Offset(, 9).FormulaR1C1 = "=VLOOKUP(rc8,[产量.xlsx]产量表!C2:C3,2,0)"
- .Offset(, 12).FormulaR1C1 = "=VLOOKUP(rc8,[产量.xlsx]产量表!C2:C5,4,)"
- .Offset(, 10).FormulaR1C1 = "=VLOOKUP(rc6,[单价.xlsx]单价表!C1:C3,3,)"
- .Offset(, 11).FormulaR1C1 = "=rc11*rc9"
- .Offset(, 13).FormulaR1C1 = "=rc12/rc13"
- .Resize(, 14).Value = .Resize(, 14).Value
- End With
- With Sheets(3)
- .Columns("A:A").Cut
- .Columns("D:D").Insert Shift:=xlToRight
- End With
- Workbooks("产量.xlsx").Close
- Workbooks("单价.xlsx").Close
- Application.ScreenUpdating = True
- End Sub
复制代码 |
|