大家好!
宏我是用录制的~
内容如下
'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 不知是否可行