[VBA ] excel排列輸出問題

看板Visual_Basic作者 (三年又三年)時間15年前 (2010/05/07 20:27), 編輯推噓1(1推 0噓 6→)
留言7則, 1人參與, 最新討論串1/1
各位大大,大家好 我在vba程式上,有個問題想請問大家一下 http://blog.xuite.net/crdotlin/excel/12147170 在上面的網頁,可以將1~8進行組合 但是9之後,就會超過excel的儲存格 請問有人可以幫我嗎? 我希望修改成 如果資料在sheet1滿了之後 自動存到sheet2 而sheet2 滿了之後 會在自動存到sheet3 以此類推 不知道可不可以麻煩板上的高手 幫忙一下 拜託各位大大了 感謝大家耐心閱讀 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 111.254.221.154
推
05/10 12:49, , 1F
最簡單的方法就是直接去判斷是不是到最末行了
05/10 12:49, 1F
→
05/10 12:53, , 2F
If PT.Row = 65536 Then
05/10 12:53, 2F
→
05/10 12:53, , 3F
Worksheets.Add
05/10 12:53, 3F
→
05/10 12:53, , 4F
Set PT = Range("A1")
05/10 12:53, 4F
→
05/10 12:53, , 5F
Else
05/10 12:53, 5F
→
05/10 12:53, , 6F
Set PT = PT.Offset(1, 0) '下移一行
05/10 12:53, 6F
→
05/10 12:54, , 7F
End If
05/10 12:54, 7F
‣ 更多 SUPERVA 的文章
文章代碼(AID): #1Bv0Sd-m (Visual_Basic)