Как удалить указанные c несколько столбцов, которые имеют нули?

Question

Существуют ли способы автоматического удаления нулей в указанных столбцах c (без ручного щелчка и удаления), в которых в этом случае столбцы имеют напряжение в качестве заголовка? Потому что мои существующие коды (не относящиеся к кодам ниже) так или иначе часто генерируют нежелательные нули в строках 7 и 8, и я хочу избавиться от них, чтобы уменьшить путаницу. Мои коды не вызывают никаких ошибок, но они просто не могут избавиться от нулей в этих выделенных строках.

Вот мой код:

Sub deletingstuff()

Dim i As Integer
Dim sht As Worksheet
Dim myrange As Range
Dim lastrow As Long
Dim LastColumn As Long

Set sht = ThisWorkbook.Sheets("Result")
LastColumn = sht.Cells(1, sht.Columns.Count).End(xlToLeft).Column
lastrow = sht.Cells(sht.Rows.Count, "C").End(xlUp).Row

For i = 1 To LastColumn
With sht
If sht.Cells(1, i).Value = "Voltage" & sht.Cells(lastrow + 1, i).Value = 0 Then
Selection.Offset(1, 0).Select
ActiveCell.ClearContents
Selection.Offset(1, 0).Select
ActiveCell.ClearContents
End If
End With
Next

End Sub

Answer 1

попробуйте, пожалуйста:

Sub deletingstuff()

Dim i As Long
Dim sht As Worksheet
Dim myrange As Range
'Dim lastrow As Long
Dim LastColumn As Long

Set sht = ThisWorkbook.Sheets("Result")
LastColumn = sht.Cells(1, sht.Columns.count).End(xlToLeft).Column
'lastrow = sht.Cells(sht.Rows.count, "C").End(xlUp).Row

For i = 1 To LastColumn
    With sht
        If sht.Cells(1, i).Value = "Voltage" Then
            If sht.Cells(7, i) = 0 Then sht.Cells(7, i).Clear
            If sht.Cells(8, i) = 0 Then sht.Cells(8, i).Clear
        End If
    End With
Next

End Sub