leehom

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-11-1 01:43 | 只看該作者

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

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

樓主熱帖

n7822123

　暱稱: 阿龍

中學生 Rank: 2

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

9^#

發表於 2015-11-8 21:26 | 只看該作者

回復 8# leehom

輸入完公式之後，不要離開輸入的儲存格，再按Ctrl+Enter

TOP

leehom

小學生 Rank: 1

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

8^#

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

回復 7# n7822123

謝謝啊,但手動那個不知道為甚麼按CTRL+ENTER沒有反應? :o

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

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

7^#

發表於 2015-11-1 17:48 | 只看該作者

本帖最後由 n7822123 於 2015-11-1 17:50 編輯

回復 5# leehom

手動的方式我用圖示說明，你可以用錄的再看程式碼，應該跟我寫的差不多

step1:點選資料範圍任一格，按 ctrl+A，會選取整個資料範圍

step2:再選取的範圍中再挑選特殊目標(儲存格)

step3:看啟用中的儲存格是哪一格，輸入等於上面那格的位置

step4:按下Ctrl+Enter(所有選取的儲存格都填入公式)，若只按Enter則只有啟用中的那一個儲存格有公式

step5:最後點選資料範圍任一格按Ctrl+A (全選)> Ctrl+C(複製) > 滑鼠右鍵 >選擇性貼上 > 值

此步驟只是去掉公式。

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

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

6^#

發表於 2015-11-1 17:24 | 只看該作者

本帖最後由 n7822123 於 2015-11-1 17:26 編輯

回復 5# leehom

知道你要幹麻了，這段程式碼試看看吧，

其實這個用手動就可以做的到了，挑選特殊儲存格(空格)，然後輸入公式=上一個儲存格，再按CTRL+ENTER

Sub 向下填滿()
[D381].CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
With [D381].CurrentRegion
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
[A1].Select
End Sub

複製代碼

TOP

leehom

小學生 Rank: 1

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

5^#

發表於 2015-11-1 15:32 | 只看該作者

回復 4# leehom

圖片備份

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

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

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