は、私は理解できない問題を抱えているセル

Question

を削除し、これはスクリプトです：

Sub WorksheetLoop() 

    Dim WS_Count As Integer 
    Dim I As Integer 
    Dim ws As String 
    Dim sht As Worksheet 

    ' Set WS_Count equal to the number of worksheets in the active 
    ' workbook. 
    WS_Count = ActiveWorkbook.Worksheets.Count 
    ws = ActiveSheet.Name 

    ' Begin the loop. 
    For I = 1 To WS_Count 

     For Each sht In ActiveWorkbook.Worksheets 
      ws = Worksheets(I).Name 
      Dim x As Range 
      Set x = Worksheets(I).UsedRange 
      x.ClearComments 

      x.Replace What:="*€£$*", Replacement:="" 

      For Each Cell In Worksheets(I).UsedRange 
       If x.Font.Color <> Black Then 
        x.Delete 
       End If 
      Next 
     Next sht 

    Next I 

End Sub 

コードのすべてを除いて動作します：

For Each Cell In Worksheets(I).UsedRange 
    If x.Font.Color <> Black Then 
      x.Delete 
    End If 
Next 

これを黒色に変更しようとしましたが、これはまだ動作しません。私はその時点でステップアップを試みました。セルを削除する資格を持つセルは決して見つけられません。

Answer 1

ループ内でCellを参照する必要があります。このように：あなたのループFor Each Cell In Worksheets(I).UsedRangeで

For Each Cell In Worksheets(I).UsedRange 
    If Cell.Font.Color <> vbBlack Then 
      Cell.Delete 
    End If 
Next 

Answer 2

VBAで直接色を参照することはできません。代わりに、数値参照で作業する必要があります。黒が0であるので、あなたのコードは、それはあなたのコードで定義した変数ですので、私はまた、xに、セル毎に変更しました。この

For Each x In Worksheets(I).UsedRange 
    If x.Font.Color = 0 Then 
      x.Delete 
    End If 
Next 

ようになりべきです。この場合、セルが黒と等しいかどうかをテストしたい場合は、

Answer 3

、あなたはCell（Rangeオブジェクト）との範囲をループしている、とIf x.Font.Color <> Black Then代わりのIf Cell.Font.Color <> Black Then場合、その後、あなたがチェックしています。

また、Cell.Font.Colorは数値を返します。これはvbBlackと一致し、Blackではありません。

修正コード

Option Explicit 

Sub WorksheetLoop() 

Dim WS_Count As Long 
Dim I As Long 
Dim ws As String 
Dim sht As Worksheet 
Dim x As Range ' define outside the loop 
Dim C As Range 

' Set WS_Count equal to the number of worksheets in the active workbook 
WS_Count = ActiveWorkbook.Worksheets.Count 

' Begin the loop. 
For I = 1 To WS_Count 
    With Worksheets(I) 
    'For Each sht In ActiveWorkbook.Worksheets ' <-- No need for this loop 
     ws = .Name 

     Set x = .UsedRange 
     x.ClearComments 

     x.Replace What:="*€£$*", Replacement:="" 

     For Each C In x ' I replaced Cell with C (Cell is too close to Cells) 
      If C.Font.Color <> vbBlack Then 
       C.Delete 
      End If 
     Next C 
'  Next sht 
    End With 

Next I 

End Sub