返回列表 上一主題 發帖

煩請大大幫忙修正VBA

煩請大大幫忙修正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
你猜!!

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

TOP

回復 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
複製代碼
請執行看看!

TOP

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 4# GBKEE
確實更簡潔,謝謝指導!

TOP

        靜思自在 : 慈悲沒有敵人,智慧不起煩惱。
返回列表 上一主題