請問 A2,B2各有公式 若C欄有資料 如何使用VBA向下自動複製公式 另外只能複製到有資料的相對儲存格 複製完要列印所以不能有多的公式 複製完直接開啟列印選項 謝謝大家?

Sub test()
For i = 3 To [C65536].End(xlUp).Row
If Cells(i, 3) > "" Then
Cells(i, 1) = "計算公式"
Cells(i, 2) = "計算公式"
End If
Next
ActiveSheet.PrintPreview '''開啟預覽列印
End Sub