返回列表 上一主題 發帖

[發問] 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


感謝各位~~~
收藏 分享

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
2#
發表於 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

TOP

ashelyyen

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


成功了!!!  謝謝你:D

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

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
4#
發表於 2015-8-13 17:48 | 只看該作者
回復 3# ashelyyen


    Cells(65536, 3)

65536 是指excel2003版的最後一列
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題