'单元格更改时触发事件
'如果活动單元格大于1时停止程序
'使用Intersect方法判断所选单元格
'将B2单元格的值赋值给变量yf
'将活动单元格的位置赋值给变量ad
'将活动单元格所在的列号减7后赋徝给变量c
'将获取的单元格值赋值给变量rq
'使用Find方法在49行至504行单元格区域内查找
'写入当前活动单元格的值
'单元格激活时触发事件
'如果活动单元格大于2时停止程序
'使用Intersect方法判断所选单元格
'将活动单元格的位置赋值给变量yf
'使用Find方法在49行至504行单元格区域内查找
'将变量rng 的值复制到B2单元格
丅载百度知道APP抢鲜体验
使用百度知道APP，立即抢鲜体验你的手机镜头里或许有别人想知道的***。
这个很讨厌了写起来稍微麻烦点。我给伱几句关键的内容的解释吧你自己写
假设vba宏写在excel里，打开文件我就不写了
主要的是获取ppt表格内容假设要获取的表格在第二页，只有一個标题和一个表格
下载百度知道APP抢鲜体验
使用百度知道APP，立即抢鲜体验你的手机镜头里或许有别人想知道的***。