Excel VBAコードが実行されていません

Question

このコードは実行されません。私はこれがよく書かれていることを理解している表示されるエラーは「構文エラー」です。

Dim Bt1 As String 
Dim Bt2 As String 
Sheets("Data").Select 
Bt1 = Range("B2") 
Bt2 = Range("C2") 
Sheets("Data2").Select 
Sheets("Data2").Range("B2").offset(1,0)<>"" then 
Sheets("Data2").Range("C2").End(xlDown).Select 
End If 
ActiveCell.Offset(1, 0).Select 
ActiveCell.Value = Bt1 
ActiveCell.Offset(0, 1).Select 
ActiveCell.Value = Bt1 
Sheets("Data").Select 
Sheets("Data").Range("B2").Select 
End Sub 

Answer 1

それはIf Sheets("Data2").Range("B2").offset(1,0)<>"" Thenでなければなりません。その行の冒頭にIfがありません。あなたは構文エラーを持っているので、おそらくだろう