复制公式到下行单元格，并按规定逻辑修改参数列值

cn1145

同一列中多行单元格，逐一复制公式到下个单元格，并按规定逻辑修改参数列值。
在一个任意的工作表中，L23中设置了一个包含函数AND的公式，并且函数AND设置了四个参数，其中行数固定，列值均为L列到W列的循环逻辑，请求编写一段VBA代码码，从L23开始，将上个单元格内的公式复制公式到下一个单元格，并对AND参数进行L列W列的循环逻辑的修改（简单明了的说，就如同机械钟表盘的规律，秒钟走了一个循环，分钟移动一格，分钟走了一个循环，时钟移动一格)，公式中其他参数均不变动。
详细演变如下：
复制L23公式到L24，从AND中的第四参数的列值开始计算往右移动一列，(如L更改为M、M更改为N……），若AND的第四个参数出现为X列时，应将X列更改为L列，并且顺延将AND的第三参数向右移动一列，(如L更改为M、M更改为N……），若函数AND的第三，第四参数同时出现为X列时，应将X列更改为L列，继续顺延将函数AND的第二参数向右移动一列，(如L更改为M、M更改为N……），若AND的第二，第三，第四参数同时出现为X列时，应将X列更改为L列，同样顺延将函数AND的第一参数向右移动一列，(如L更改为M，M更改为N……），
……以此类推，直至完成所需单元格。

cn1145

Sub UpdateFormulas()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名
    Dim row As Long
    Dim colOffset As Long
    Dim formula As String
   
    ' 初始列偏移量
    colOffset = 0
   
    ' 遍历从L22到L42的行
    For row = 22 To 42
        ' 初始化公式
        formula = "=IF(AND("
        
        ' 遍历AND函数的四个参数
        For i = 16 To 19
            ' 计算列字母
            Dim colLetter As String
            colLetter = Chr(Asc("L") + (i - 16 + colOffset) Mod 12)
            
            ' 添加到公式中
            If i > 16 Then formula = formula & ","
            formula = formula & colLetter & "$" & i & "=1"
        Next i
        
        ' 完成公式
        formula = formula & "),L$44,0)"
        
        ' 将公式写入单元格
        ws.Cells(row, "L").Formula = formula
        
        ' 更新列偏移量
        colOffset = (colOffset + 1) Mod 12
    Next row
End Sub

这段代码能实现部分功能，但是还不符合要求，求大侠更正：
一，公式是从L22开始复制到L23，L22中的公式改变；
二，AND函数中的参数是逐一递增更改的，当第四参数的列值到达W列时，更改不再将列值右移，而是返回L列继续循环，并且，当第四参数更改为L列时，第三参数的列值相应的右移一列，直到W时同样更改为L列。第二，第一参数如此逻辑同样作出更改。而这段代码却是将AND中所有的参数都右移一列，因此需要进行相应的调整。

xbox1210

小递归练练手。

cn1145

xbox1210 发表于 2024-9-7 22:23
小递归练练手。

已验证，完美！流畅！
感谢感谢！正是我要的结果！