返回列表 上一主題 發帖

[發問] Offset 使用問題

ashelyyen

帖子
4 
主題
2 
精華
0 
積分
17 
點名
0  
作業系統
window7 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2015-8-11 
最後登錄
2015-11-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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


感謝各位~~~
收藏 分享

ashelyyen

帖子
4 
主題
2 
精華
0 
積分
17 
點名
0  
作業系統
window7 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2015-8-11 
最後登錄
2015-11-12 
2#
發表於 2015-8-13 13:41 | 顯示全部帖子
回復 2# diolin


成功了!!!  謝謝你:D

不過可以請問一下使用"Cells(65536, 3)" 這個是什麼意思呢~~~

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題