क्या विशिष्ट कॉलम में शून्य को स्वचालित रूप से हटाने का कोई तरीका है (मैन्युअल रूप से क्लिक और डिलीट नहीं) जो इस मामले में कॉलम में हेडर के रूप में वोल्टेज है? क्योंकि मेरे मौजूदा कोड (नीचे दिए गए कोड का जिक्र नहीं) किसी भी तरह अक्सर पंक्ति 7 और 8 में अवांछित शून्य उत्पन्न करते हैं और मैं भ्रम को कम करने के लिए उनसे छुटकारा पाना चाहता हूं। मेरे कोड किसी भी त्रुटि का कारण नहीं बनते हैं लेकिन यह उस हाइलाइट की गई पंक्तियों पर शून्य से छुटकारा नहीं पा सका।

enter image description here

enter image description here

यहाँ मेरा कोड है:

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
0
cena 27 जिंदा 2020, 13:27

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
1
FaneDuru 27 जिंदा 2020, 13:38