(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:EXCEL 365
版本:365
各位好 VBA新手請教,因為年末要盤點要做個表格複製的VBA
但是卡在SUB的地方 一直出錯,顯示型別不符或未定義
思維是 先計算表格1的行數(總共需要印出來的小卡張數)
因為每張A4會印4張小卡所以設定pp = 4
總共需要的列印頁數就會等於行數/4 = tn
每份有41行
所以實務上會變成選擇1~41行的小卡表格
貼上第42列
重複執行到 行數X總表格數的次數
Sub 空白盤點小卡複製()
Dim kk As Long '宣告kk為列數的變數
Dim tn As Integer '宣告tn為 頁數的變數
Dim i As Integer '宣告i為張貼列數變化的變數
Dim pp As Integer '宣告pp為變數
kk = Worksheets("表格1").Range("A65535").End(xlUp).Row
pp = 4
tn = (kk \ pp) + 1
i = i * 41
For i = 1 To i * tn Step 1
Worksheets("小卡").Rows("1:41").Select
Selection.Copy
Worksheets("小卡").Rows("i:i").Paste
Next
行數不會超過65535行
因為在SUB的地方直接顯示黃底,底下不知道有沒有錯誤,如果還有其他錯誤的地方
還請不吝賜教,謝謝。