当第一列数据超出纸张范围移动到第二列

cf063418

我想让这个代码执行if后让i保留if的属性，比如if k > 12 时 i=2 继续运行 i仍=2

Sub tiqu()
Dim i%, k%
  For Each sh In Sheets
  k = k + 2
  If k > 12 Then
  i = i + 1
  k = 2
  Else
  i = 1
  End If
  Cells(k, i) = sh.[b5]
  Next
End Sub

cf063418

Sub 二维码()
Dim i%, k%, z%
For Each sh In Sheets
   i = 1
   k = k + 2
If k > 12 Then
   k = 2
   z = z + 1
End If
   i = i + z
   Cells(k, i) = sh.[b5]
   Next
End Sub