大家好!
巨集我是用錄製的~
內容如下
'Range("K2").Select
Selection.Copy
Application.Goto Reference:="R100C7"
End Sub
K2儲存格可以手key數值(ex.200..)
巨集設定我要跳到第K2值的列&第7欄
照原本的巨集,K2=100
即便我我改了K2=200,也只會跳到R100C7
我要怎麼修改這條編碼讓他可以隨K2的值變動?
ex當K2=150→跳到R150C7
當K2=234→跳到R234C7
非常感謝大家幫忙><

Reference:="R100C7"有改過嗎？

你的目的是什麼, select和goto其實不好用

Sub 第一種方式()儲存格 = InputBox("請輸入儲存格,例:K2")Range(儲存格).SelectRow = Range(儲存格).RowCol = Range(儲存格).ColumnSheets("工作表1").Cells(Row + 98, Col - 4).SelectEnd Sub第三樓 複製到第八樓 直接貼上就可以用了Sub 第二種方式()'在 L1 輸入abc行 ,M1輸入123列Dim rngCopy As Rangekrow = Range("L1") '<-本身是文字kcol = Range("M1").Text '<將數字改文字格式目標row = Range(krow & kcol).Row '找出列目標col = Range(krow & kcol).Column '找出行Cells(目標row + 98, 目標col - 4) = _Range(krow & kcol).Value '與上一行 為同一行'^將資料直接丟給目標位置End Sub10~20樓 直接複製貼上也可以看你要哪種Dim rngCopy As Range 這行可以拿掉 我多打得差點忘了 第一種方式 我忘了放入copy第二種方式 譬如 L1打K M1打2 就是指向K2

Cells(Range("k2"), 7).Select 不知是否可行