VBA에서 대체 행으로 인쇄

Question

Excel에서 VBA를 사용하여 모든 숫자의 표를 인쇄해야합니다. 즉 각 행 뒤의 빈 행 아래 iswhat 내가 연속적인 행에있는 테이블을 인쇄 썼다하지만 난 어떻게 대체 행에 결과를 인쇄 할 수 있을지 모르겠어?

Sub table() 
a = InputBox("Enter first no") 
ActiveSheet.Cells.Clear 
ActiveSheet.Cells(5, 4) = "TABLE OF " & a 
For i = 1 To 10 
c = a * i 
ActiveSheet.Cells(i + 5, 4) = a 
ActiveSheet.Cells(i + 5, 5) = "*" 
ActiveSheet.Cells(i + 5, 6) = i 
ActiveSheet.Cells(i + 5, 7) = "=" 
ActiveSheet.Cells(i + 5, 8).Value = c 
next i 
End Sub 

Answer 1

Sub table() 
a = InputBox("Enter first no") 
n As Integer 

n=6 
ActiveSheet.Cells.Clear 
ActiveSheet.Cells(5, 4) = "TABLE OF " & a 
For i = 1 To 10 
    c = a * i 
    ActiveSheet.Cells(n, 4) = a 
    ActiveSheet.Cells(n, 5) = "*" 
    ActiveSheet.Cells(n, 6) = i 
    ActiveSheet.Cells(n, 7) = "=" 
    ActiveSheet.Cells(n, 8).Value = c 
    n = n + 2 
next i 
End Sub 

Answer 2

는

(i * 2) + 4 

에

i + 5 

에서 행 번호 계산을 변경