帖子: 40
主題: 17
精華: 0
積分: 62
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-27
最後登錄: 2014-11-18

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-4-1 13:01 | 只看該作者

[發問] 儲存格往下貼上

小弟想請問一下

小弟在A1 至 B5 打好了資料
         A       B
1    小名    小華
2    小美    小琳
3    小陳    小張
4    小雪    小如
5    小安    小玉

小弟想要複製A1 至B5的資料
然後往下貼上(次數不限)
變成這樣(假設兩次)
            A       B
6       小名    小華
7       小美    小琳
8       小陳    小張
9       小雪    小如
10    小安    小玉
11    小名    小華
12    小美    小琳
13    小陳    小張
14    小雪    小如
15    小安    小玉

想請問一下
Sheet1.Range("A1:B5").Select
Application.Selection.Copy
用Range().Select  的方式
要如何往下貼上呢?

或是有別種方式可以完成??
小問題請教一下大家
謝謝!!!

樓主熱帖

WOW

g93353

中學生 Rank: 2

帖子: 40
主題: 17
精華: 0
積分: 62
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-27
最後登錄: 2014-11-18

10^#

發表於 2012-4-10 17:29 | 只看該作者

謝謝各位大大的回覆喔!!!!!感恩感恩!!

WOW

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

9^#

發表於 2012-4-5 20:17 | 只看該作者

哦呵！原來如此，真感謝大大詳盡的說明。
蠻像魔術方塊呢！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2012-4-5 19:59 | 只看該作者

本帖最後由 GBKEE 於 2012-4-5 20:08 編輯

回復 6# c_c_lai
VBA 視窗中程式碼的範圍內滑鼠點選後, 按F8 逐步執行程式看看.

Option Explicit
Sub Ex_END()
MsgBox Range("C5").End(1).Address
MsgBox Range("C5").End(xlToLeft).Address
MsgBox Range("C5").End(2).Address
MsgBox Range("C5").End(xlToRight).Address
MsgBox Range("C5").End(3).Address
MsgBox Range("C5").End(xlUp).Address
MsgBox Range("C5").End(4).Address
MsgBox Range("C5").End(xlDown).Address
End Sub
Sub Ex()
MsgBox Range("C5")(1).Address
MsgBox Range("C5").Cells(1).Address
MsgBox Range("C5").Cells(1, 1).Address
MsgBox Range("C5").Cells(1, "A").Address
MsgBox Range("C5")(2).Address
MsgBox Range("C5").Cells(2).Address
MsgBox Range("C5").Cells(2, 1).Address
MsgBox Range("C5").Cells(2, "A").Address
MsgBox Range("C5")(1, 3).Address
MsgBox Range("C5")(1, "C").Address
MsgBox Range("C5").Cells(1, 3).Address
MsgBox Range("C5").Cells(1, "C").Address
End Sub

複製代碼

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

7^#

發表於 2012-4-5 19:04 | 只看該作者

回復 6# c_c_lai

[a65536].End(3)(2)
等同於[a65536].End(xlup).offset(1,0)

須分2部份解釋
1.[a65536].End(3)=[a65536].End(xlup)
由a65536往上(xlup)找到第1個不為空值的儲存格,即a5
2.Range("a1:b3")(1)=Range("a1")
Range("a1:b3")(2)=Range("b1")
Range("a1:b3")(3)=Range("a2")
Range("a1:b3")(4)=Range("b2")
故Range("a5")(2)=Range("a5").offset(1,0)=Range("a6")

TOP

c_c_lai