標題: 煩請大大幫忙修正VBA [打印本頁]

---

作者: bear0925900003    時間: 2014-7-10 10:13     標題: 煩請大大幫忙修正VBA

小弟自製一程式如下，但執行後出現錯誤，還請大大幫忙修正，感恩!!
Sub 彙整收入類()
Sheets("其他收入總表").Select
Sheets("其他收入總表").Range("A2:h65536").Select
    Selection.Copy
    Sheets("收入總表").Select
    Range("A1").End(xlUp).Offset(1, 0).stlect
    ActiveSheet.Paste
ActiveSheet.Paste
End Sub

---

作者: stillfish00    時間: 2014-7-10 23:41

回復 1# bear0925900003
拼錯吧...
stlect

---

作者: c_c_lai    時間: 2014-7-11 07:10

回復 1# bear0925900003
除了 stillfish00 大大幫你解答的
錯字外，將你的程式碼稍稍整理了：

1. Sub 彙整收入類()
   
2.     Sheets("其他收入總表").[A2:H65536].Copy
   
3.      
   
4.     With Sheets("收入總表")
   
5.         .Select
   
6.         .Range("A1").End(xlUp).Offset(1, 0).Select
   
7.         ActiveSheet.Paste
   
8.     End With
   
9. End Sub

複製代碼

請執行看看！

---

作者: GBKEE    時間: 2014-7-11 14:35

回復 3# c_c_lai
再短一點

1. Option Explicit
   
2. Sub 彙整收入類()
   
3.     Sheets("其他收入總表").[A2:H65536].Copy Sheets("收入總表").Range("A1").End(xlUp).Offset(1, 0)
   
4. End Sub

複製代碼

---

作者: c_c_lai    時間: 2014-7-11 14:46

回復 4# GBKEE
確實更簡潔，謝謝指導！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)