excel表格如何用编码代替所需要的内容！！！急求！！
发布网友
发布时间：2022-04-21 01:57
共2个回答
热心网友
时间：2022-06-17 05:32
Private sub worksheet_change(ByVal Target as range)
r=sheets("sheet1").range("A65536").end(3).row
if not application.intersect(Target,range("A:F")) Is nothing then
for i = 1 to r
if target.value = i then
target.value=sheets("Sheet1").range("B" & i+1)
end if
next
end if
end sub
打开你要录入的表格sheet2，按ALT+F11，将此代码复制在空白区域就可以了。
热心网友
时间：2022-06-17 05:32
下拉公式
