vba - VBA - 行内の塗りつぶされたセルの数を数える

Question

以下は、これまでの私のコードです。任意のヒント？

 With wSheet
     colCount = .Range(1 & .Columns.Count).End(xlToRight).Column
  End With

私は何を間違っていますか？

Answer 1

右端の塗りつぶされた列の番号を取得するには:

colCount = .Cells(1, .Columns.Count).End(xlToLeft).Column

タイトルにあるように、空白でないセルの数を取得するには:

Application.WorksheetFunction.CountA(.Rows(1).EntireRow.Cells)