代码简化

半百

王跃峰 发表于 2023-8-13 20:59
老师，麻烦您帮忙看一下9楼怎么改

Sub 各种单耗()
Dim i&, x&
i = Sheets.Count '计算工作表数
For x = 2 To i '建立每个表循环
    With Sheets(x)
        For j = 3 To 13  '循环C到M列
            n = 0
            For K = 1 To 8
                n = n + (K Mod 2) * 2 + 2
                .Cells(26 + n, j).Formula = "=" & Cells(22 + Application.Even(K) * 3, j).Address & "+'" & _
                Sheets(x - 1).Name & "'!" & Cells(26 + n, j).Address
            Next
        Next
    End With
Next x
End Sub

半百

王跃峰 发表于 2023-8-13 20:59
老师，麻烦您帮忙看一下9楼怎么改

王跃峰

半百 发表于 2023-8-13 21:33
Sub 各种单耗()
Dim i&, x&
i = Sheets.Count '计算工作表数

太感谢您了

王跃峰

半百 发表于 2023-8-13 21:34

谢谢您的指教！

王跃峰

半百 发表于 2023-8-13 21:34

请问老师 Application.Even(K)什么意思？

半百

王跃峰 发表于 2023-8-14 08:30
请问老师 Application.Even(K)什么意思？

EVEN是工作表函数，在VBA中使用工作表函数（有的不可用），要在前边加上Application.或WorksheetFunction.

王跃峰

半百 发表于 2023-8-14 10:13
EVEN是工作表函数，在VBA中使用工作表函数（有的不可用），要在前边加上Application.或WorksheetFunction ...

老师不但知识真渊博，而且平易近人

LJX2008m

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

LJX2008m

王跃峰 发表于 2023-8-14 08:30
请问老师 Application.Even(K)什么意思？

是一个函数调用，K 是传递给 Even 函数的参数。

LJX2008m

半百 发表于 2023-8-13 14:45

https://club.excelhome.net/forum.php?mod=viewthread&tid=169
给看看这个