如何由某欄跳到別欄,再回到原欄?

假設原定位置是A5,然後跳到同列的D欄,即D5,
當做完一些動作後,位置變成D18,想跳回該列的A欄,即A18,
有可能這樣寫嗎?謝謝了!!:)

樓主熱帖

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2015-11-1 03:36 | 只看該作者

回復 1# leehom

題意不夠清晰，若有圖說或者附件會更好，不然也只能用猜的。

我只能先假設你的位置定義是"啟用"的儲存格，參考看看吧。

Cells(ActiveCell.Row, "A").Activate

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2015-11-1 10:08 | 只看該作者

回復 1# leehom

誠如2樓所說的，題意不清晰
你應該多看VBE中的Range的說明或是這論壇中的文章，
因為你所問的，都是最基礎的知識Range、Cells、Row、Column只要搞清楚這幾個你的問題就可以隨意運用了
Range：範圍，單一儲存格以上相鄰的儲存格寫成Range("A1:A10")或簡稱[A1:A10]其語法意思為，從A1到A10
Cells：儲存格或單元格，就是單一個儲存格或代表工作表所有儲存格，單一儲存格寫法以B1儲存格來說明，寫法為Cells(1,2)意思就Cells(列1,欄2)的意思，所有儲存格則只寫成 Worksheet.Cells
Row：列號，哪一列的意思
Column：欄號，哪一欄
以上說明，只是簡單描述，並不能夠代表所有意思，詳細說明，應以VBE說明為主
下面代碼只是解釋你的問題的描述的基礎語法，其實際寫法仍要看你的做用倒底是什麼而定：
Dim Ran As Range
Set Ran = Range("A5") '假設原定位置是A5，A5設成變數 Ran
Cells(Ran.Row, "D").Select '然後跳到同列的D欄,即D5，這裡不知道你要做什麼事，所以只有用Select選擇 D5，若是要寫值可以寫成 Cells(Ran.Row, "D")="ABC"
Cells(18, "D").Select '當做完一些動作後 , 位置變成D18 ，同上列說明
Cells(18, Ran.Column).Select '跳回該列的A欄,即A18

TOP

leehom

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

4^#

發表於 2015-11-1 14:55 | 只看該作者

回復 3# lpk187

感謝樓上兩位的熱心解答,其實我是想這樣的

如上圖所見,D欄的資料到D395,我想A,B,C欄能自動向下複製,A欄由A388複製30-Oct到A395,B欄由 B389複製12:37到B395,C欄也是一樣!這樣就能填滿空白。

比如B381,我可以先複製10:43,然後利用Range(Selection, Selection.End(xlDown)).Select指令到B389再往上複製以填滿, 但B389之後,因下面再沒有資料,再往下就是末端了,所以想到跳到D欄,然後找最後一列即D395,然後再利用指令回到該列的B欄,即B395,就可以往上複製了。因為不懂太艱辛複製的寫法,就想到這麼一步一步來寫了,或者有甚麼更好的方法?請指教,謝謝了!!

TOP

leehom