VBA-VBA與函數（含變量）

Sub test()
On Error Resume Next
With Sheet5
  Dim r%, i%
  r = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row

'含變量的公式寫法如下：
  .Cells(2, 6) = "=countif(a2:a" & r & "," & """" & ">3" & """" & ")"

'錯誤的寫法
 '.Cells(2, 6) = "=countif(a1:a9,">3")"
'正確的寫法
 '.Cells(2, 6) = "=countif(a1:a9,"">3"")"
'備註：若公式內有引號，則編輯VBA代碼時，需要在內引號處多添加一個引號

End With
End Sub