質問: Option Explicit Sub ボタン89_Click() '//勝判定での初期化 With Worksheets("出目回数") Dim lastrow As Long Dim maxcolumn As Long お世話になります。
回答: コードの書き方に統一性がないのが問題だと思います。 複数行記述にすれば、同じ動作になると思います。 '//ここなのですが、これでは動きません。 If maxcolumn = 3 And lastrow >= 4 And lastrow > lastrow - 1 Then If ws.Range("D10") = "★" Then .Cells(i, maxcolumn).Clear End If End If '//これだと動いてくれます。。 If maxcolumn = 3 And lastrow >= 4 And lastrow > lastrow - 1 And_ ws.Range("D10") = "★" Then .Cells(i, maxcolumn).Clear End If Then に続いてはコードを記述しない。 IF Then は常に IF Then End If のように複数行で記述するように統一されることをお勧めします。