VBA 0,00で列をクリアするVBAヘルプ

Question

私は、列8以降の0.00を持つすべてをクリーンアップする方法を知りたいと思います。書いた列が次の行にジャンプするとすぐに、私はコメントと助けに感謝します。レンジ 薄暗い林として

薄暗いRNG、整数

ここ

lin = 2 
col = 10 

Cells(lin, col).Select 

Do While ActiveCell.Value <> "" 
    Do While ActiveCell.Value <> "" 
     If ActiveCell.Value = ",00" Then 
      ActiveCell.Value = "" 
     End If 
     col = col + 1 
     Cells(lin, col).Select 
    Loop 
    lin = lin + 1 
    col = 10 
    Cells(lin, col).Select 

Loop 

Answer 1

としてcolが、私が代わりに行っているだろうかです。私は最初にデータで最後の列と行番号を見つけます。データで列8から最後の列にループし、各列に対して、各行をループして0,00を含むセルの値を探します。

Option Explicit 

'loop from col 8 then go through each line and remove those with 0,00 

Sub RemoveZeros() 

    Dim colNo As Long 
    Dim rowNo As Long 
    Dim lastColNo As Long 
    Dim lastRowNo As Long 
    Dim ws As Worksheet 

    'Assuming your sheet name is Sheet1 
    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 

     'Find the last column and row no with data 
     lastColNo = .Cells(1, .Columns.Count).End(xlToLeft).Column 
     lastRowNo = .Cells(.Rows.Count, 1).End(xlUp).Row 

     'loop through each col and row to find those with value 0,00 
     For colNo = 8 To lastColNo 
      For rowNo = 1 To lastRowNo 
       If .Cells(rowNo, colNo).Value = "0,00" Then 
        .Cells(rowNo, colNo).Value = "" 
       End If 
      Next rowNo 
     Next colNo 

    End With 

End Sub