excel - 基于特定单元格值缩进单元格的 VBA 代码

Question

在 Excel 中，“C”列的值为"is"或“否”。如果值为“否”，那么我想缩进“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) = 同一行，一列到正确的)