コメントを含むセルの行全体をクリアしようとしています。したがって、コメントを含む最後のアクティブな行番号が必要です。私は使用しました
LastRow = Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count, "B").End(xlUp).Row
しかし、これは値を含む最後の行番号を返しています。セルにコメントのみがあり、値がない場合、最後の行番号は返されません。
列全体のセル コメントをクリアするための別の提案も歓迎します。
前もって感謝します。
値をクリアする私のコードは次のとおりです。コメントも消したいです。
Sub columnClear()
Dim LastRow As Long
Dim i As Long
LastRow = Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count, "B").End(xlUp).Row
For i = 3 To LastRow
Worksheets("Sheet1").Cells(i, 2).Value = Empty
Next
End Sub