|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 各种单耗()
Dim i&, x&, cellRefs As Variant
Dim lastSheet As Worksheet
Set lastSheet = Sheets(Sheets.Count)
i = lastSheet.Index
' 定义需要设置公式的单元格引用
cellRefs = Array( _
Array("C30", "C28"), _
Array("C32", "C28"), _
Array("C36", "C34"), _
Array("C38", "C34"), _
Array("C42", "C40"), _
Array("C44", "C40"), _
Array("C48", "C46"), _
Array("C50", "C46"), _
' ... 添加其他需要的单元格引用
)
For x = 2 To i ' 建立每个表循环
With Sheets(x)
For Each cellRef In cellRefs
.Range(cellRef(0)).Formula = "=R[-" & Application.Match(cellRef(1), .Rows, 0) & "]C + '" & Sheets(x - 1).Name & "'!" & cellRef(0)
Next cellRef
End With
Next x
End Sub |
|