EXCEL VBA編程報400錯誤，代碼如下，請大神指導，謝謝 Sub updateSBC() Dim a As I

Sub updateSBC()

Dim a As Integer, b As Integer, c As Integer, d As Integer

For b = 2 To 200

If Sheets(2).Cells(2, b - 1).Value <> "" And Sheets(2).Cells(2, b + 1).Value = "" Then

d = d + 4

Cells(2, d + 2) = Sheets(2).Cells(2, b)

Cells(3, d + 2) = Sheets(2).Cells(3, b)

Cells(4, d + 2) = Sheets(2).Cells(4, b)

Cells(5, d + 2) = Sheets(2).Cells(5, b)

End If

Next

End Sub