我目前正在尝试制作一个程序,该程序需要用户输入并将值存储在名为FastenerNumbers的数组中。然后,基于这些值,程序会用绿色填充特定的单元格,以便用户知道在其中输入值。问题是,如果数组中的值为0,我想删除该列,以使工作表更整洁。

我遇到的问题是,在for循环中删除列时,单元格向左移动。因此,某些单元格实际上被跳过了。为了解决这个问题,我基本上不得不蛮力地执行该程序,以便它循环几次以解决所有跳过的列。

这是代码:

'Make cells green for user to put inputs into
For i = 0 To UBound(FastenerNumbers)
    If FastenerNumbers(i) <> 0 Then
        With Range(Range("A14").Offset(0, 2 * i), Range("A14").Offset(FastenerNumbers(i) - 1, (2 * i) + 1))
            .Borders.LineStyle = xlContinuous
            .Interior.ColorIndex = 4
        End With
    End If
Next

'Define initial counter variable
j = 1

'    Do Until j = 5
'        For i = 0 To UBound(FastenerNumbers)
'            If FastenerNumbers(i) = 0 Then
'                Range(Range("A14").Offset(0, 2 * i), Range("A14").Offset(FastenerNumbers(i) - 1, (2 * i) + 1)).EntireColumn.Delete
'            End If
'        Next
'    Loop
'

Do
    For Each cell In Range("A14", Range("A14").Offset(, (UBound(FastenerNumbers) + 1) * 2))
        If cell.Interior.ColorIndex <> 4 Then
            cell.EntireColumn.Delete
        End If
        j = j + 1
        If j >= (5 * (UBound(FastenerNumbers) + 1) * 2) Then
            Exit Do
        End If
    Next
Loop


伪代码是我要使用的另一种方法。我认为这两种方法都不比另一种方法明显好。我希望循环更干净,更高效。

最佳答案

就像使用一个单独的变量(j)计算有效FastenerNumbers()值的数量一样简单,如下所示

'Make cells green for user to put inputs into
For i = 0 To UBound(FastenerNumbers)
    If FastenerNumbers(i) <> 0 Then
        With Range(Range("A14").Offset(0, 2 * j), Range("A14").Offset(FastenerNumbers(i) - 1, (2 * j) + 1)) ' use j as the column relevant variable
            .Borders.LineStyle = xlContinuous
            .Interior.ColorIndex = 4
        End With
        j = j + 1 'update column relevant variable
    End If
Next

10-05 21:12
查看更多