1
を数えるとき
.match
のために失敗しています。 .match
はワークブック関数ですが、ワークシートのメソッドであるかのように使用しています。代わりに:
With CellsTab
NumOfProdCells = _
.Range(.Cells(Application.WorksheetFunction.Match(CurrentStartRow, _
.Range("MIRCellColumn"), 0), 4), _
.Cells(Application.WorksheetFunction.Match(CurrentStartRow, _
.Range("MIRCellColumn"), 0), 4).End(xlDown)).Rows.Count
End With
ありがとうございます。しかし、これは私に "WorksheetFunctionクラスのMachプロパティを取得できません" –
私は謝罪、それは 'Application.WorksheetFunction.Match()'である必要があります。 '.Cells()'参照で '> 4'を使ったように見えますが、これは無効です。しかし、それはちょうどポストのフォーマットの副作用かもしれません。 – Toast
実際に書式設定の問題でした。また、Application.Works ...に変更すると、エラーは変更も削除もされません。 –