我這就是一個復制黏貼的代碼，復制1到12月。一個月一張表，全復制到一起
為什么代碼給num賦值1到13，運行會到14？
Private Sub CommandButton1_Click()
Dim num%, j%
Dim TE As Date
TE = InputBox("Input YYYY/mm/dd")
On Error Resume Next
j = 1
For num = 1 To 13
Sheets(num).Range("A1").AutoFilter
Sheets(num).Range("A1").AutoFilter
Sheets(num).Range("a2:l" & Sheets(num).Range("a1000").End(xlUp).Row).Copy
Sheet14.Cells(j + 1, 1).PasteSpecial xlPasteValues
j = Sheet14.UsedRange.Rows.Count
Next
uj5u.com熱心網友回復：
這不是你自己寫了個14在這的么
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/260779.html
標籤：VBA
上一篇：請教一個正則運算式咋寫