Sub test（）Dim z As String對於z = 14到17對於b = 14到17 ActiveSheet.Cells（b，13）=「z」Next z Next b End Sub

Question

我是VBA的新手，菜鳥。我試圖讓一個變量在循環中使用引號。例如：

Sub test() 
Dim z As String 
For z = 14 To 17 
For b = 14 To 17 

ActiveSheet.Cells(b, 13) = "z" 

Next z 
Next b 

End Sub 

我得到一個「編譯錯誤：類型不匹配」。有人能告訴我我做錯了什麼嗎？感謝您的幫助。

Answer 1

您聲明變量z作爲字符串。字符串不是數字，不能在for循環中增加或使用。

聲明變量爲整數並將值打印到單元格中。

外部z循環在內部b循環之前關閉。這也是一個問題。你可能想習慣縮進你的代碼，使這種錯誤更明顯。

總的來說，目前還不清楚你想達到什麼目的。如果您只想將z值打印到一個範圍內，則根本不需要b循環，例如：

Sub test() 
Dim z As Integer 

For z = 14 To 17 
' enters z value into column M 
    ActiveSheet.Cells(z, 13) = z 
Next z 

End Sub