返回列表 上一主題 發帖

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

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 »
發表於 2015-11-1 03:36 | 顯示全部帖子
回復 1# leehom

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

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

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

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2#
發表於 2015-11-1 17:24 | 顯示全部帖子
本帖最後由 n7822123 於 2015-11-1 17:26 編輯

回復 5# leehom


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

其實這個用手動就可以做的到了，挑選特殊儲存格(空格)，然後輸入公式=上一個儲存格，再按CTRL+ENTER
  1. Sub 向下填滿()
  2. [D381].CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
  3. With [D381].CurrentRegion
  4.   .Copy
  5.   .PasteSpecial Paste:=xlPasteValues
  6. End With
  7. [A1].Select
  8. End Sub
複製代碼

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
3#
發表於 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 
4#
發表於 2015-11-8 21:26 | 顯示全部帖子
回復 8# leehom


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

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題