Board logo

標題: [發問] Offset 使用問題 [打印本頁]
作者: ashelyyen    時間: 2015-8-13 10:44     標題: Offset 使用問題

本帖最後由 ashelyyen 於 2015-8-13 10:45 編輯

大家好我是剛學VBA的新手

最近在撰寫的時候遇到以下問題:
  1. Public Sub test_081114()
  2. Dim i As Integer
  3. For i = 2 To 12
  4.     Worksheets(i).Select
  5.     Range("b14:u23").Select
  6.     Selection.Copy
  7.     Worksheets("sheet1").Select
  8.     Range("c4").Select
  9.         If i = 2 Then
  10.             ActiveSheet.Paste
  11.         Else
  12.             Selection.End(xlDown).Select
  13.             ActiveCell.Offset(11, 0).Range("a1").Select
  14.             ActiveSheet.Paste
  15.         End If
  16. Next i
  17.         
  18. End Sub
複製代碼
我想要把Sheet2-Sheet12固定範圍的資料paste到sheet1，而且隔11行作貼上動作
不過程式都只能跑到Sheet2 之後以下就空白了
但是如果把Offset設定成(1,0)又可以貼完全部的資料

想請問這段程式碼出現了什麼bug嗎 :L


感謝各位~~~
作者: diolin    時間: 2015-8-13 11:02

大家好我是剛學VBA的新手

最近在撰寫的時候遇到以下問題:我想要把Sheet2-Sheet12固定範圍的資料paste到s ...
ashelyyen 發表於 2015-8-13 10:44


Selection.End(xlDown).Select
改成如下
Worksheets("sheet1").Cells(65536, 3).End(xlUp).Select
作者: ashelyyen    時間: 2015-8-13 13:41

回復 2# diolin


成功了!!!  謝謝你:D

不過可以請問一下使用"Cells(65536, 3)" 這個是什麼意思呢~~~
作者: ML089    時間: 2015-8-13 17:48

回復 3# ashelyyen


    Cells(65536, 3)

65536 是指excel2003版的最後一列



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