VBA代码，用于根据特定单元格值缩进单元格

Question

在Excel列"C"中，值为"是"或"否"。 如果值为"否"，那么如果可能的话，我想缩进"D"列 2 缩进的值。 如何做到这一点？

Answer 1

试试这个：

For Each i in Sheets("sheetname").Range("C1:C100")  ' change to last row number
    If i.Value = "No" Then
        i.Offset(0,1).InsertIndent 2 ' Offset selection from column C to D
    End If
Next i

说明：For each循环遍历 C 列中的单元格。对于循环的每一轮，C 列中的当前单元格都分配给变量 i 。然后，检查该单元格的值是否为"否"，如果是，则将两个"缩进"添加到 D 列中的相邻单元格（使用 Offset(rows, cols) 函数）。 Offset(0,1) = 同一行，右侧一列）

Answer 2

怎么样：

Sub IndentD()
    For Each r In Intersect(Range("C:C"), ActiveSheet.UsedRange)
        If r.Text = "No" Then
            r.Offset(0, 1).InsertIndent 2
        End If
    Next r
End Sub