如何修改Google Sheet脚本：指定L列单元格检测及内容替换

嘿，我来帮你搞定这个需求！首先咱们先明确一下目标单元格的规律：每组包含2个连续单元格（比如L9&L10、L18&L19、L27&L28…），组和组之间间隔8行，直到L2000为止；只要这些单元格里值是1，就把对应单元格上方4行的L列单元格改成FALSE。

下面是修改后的VBA脚本，我会逐行给你解释：

Sub UpdateLColumn()
    Dim ws As Worksheet
    Dim currentStartRow As Long
    Dim targetRow As Long
    
    ' 替换成你要操作的工作表名称，比如Sheet1
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 第一组的起始行是9
    currentStartRow = 9
    
    ' 循环处理每组，直到起始行超过2000
    Do While currentStartRow <= 2000
        ' 处理每组的第一个单元格（比如L9、L18...）
        targetRow = currentStartRow
        If ws.Cells(targetRow, "L").Value = 1 Then
            ' 上方4行的单元格，也就是targetRow - 4
            ws.Cells(targetRow - 4, "L").Value = "FALSE"
        End If
        
        ' 处理每组的第二个单元格（比如L10、L19...），先判断是否超过2000
        targetRow = currentStartRow + 1
        If targetRow <= 2000 Then
            If ws.Cells(targetRow, "L").Value = 1 Then
                ws.Cells(targetRow - 4, "L").Value = "FALSE"
            End If
        End If
        
        ' 每组间隔8行，所以下一组起始行是当前起始行 + 9（当前组占2行，加9正好中间隔8行）
        currentStartRow = currentStartRow + 9
    Loop
    
    MsgBox "操作完成！"
End Sub

关键细节说明： #

• 首先指定要操作的工作表，记得把Sheet1改成你实际使用的表名
• 循环逻辑：从第9行开始，每次加9行跳到下一组的起始行，确保组之间间隔8行
• 对每组的两个单元格分别判断：如果值为1，就修改它上方4行的单元格为FALSE
• 增加了targetRow <=2000的判断，避免最后一组的第二个单元格超出L2000的范围

你可以直接把这段代码复制到Excel的VBA编辑器里（按Alt+F11打开），调整工作表名称后运行就行啦。

内容的提问来源于stack exchange，提问作者Rodrigo Garcia