站王国中eciffO.ABV.理管
如果在excel 里用函数 公式 或filter 缩小范围，这个它是调用excel 自身的功能，就快
find? find 返回是一个range 或数组吗？
站王国中eciffO.ABV.理管
是想先取到 如：财务部门 的所有人员
那就是需要 查找 再找 循环了
K混混
对
find findnext
指定列的单元格查找
find相对来讲，还是挺快的，如果数组在他们语言里不快，而引用对象要快一些的话，可以试一下
kcin
大家好，Sub 导入图片()
For Each shap In Sheet1.Shapes
If shap.Type <> 8 Then shap.Delete
Next
For Each Rng In Range([a2], Cells(Application.CountA(Columns(1)), 1))
i = ThisWorkbook.Path & " \" & Rng & ".jpg"
Set rngs = Cells(Rng.Row, 2)
Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height
Next
End Sub运行这个代码时候，因为路径调用图片，但是出现自动化错误，
站王国中eciffO.ABV.理管
刚试了一下，find 在他们环境中效率也不高
如果 excel 有类似 autofilter效果但不真正去筛选 或 sql+ where 这种方式 就好了
即从原始数据 取到符合条件的数据，但不影响和破坏原数据
站王国中eciffO.ABV.理管
for each 删除的话，可能最好用倒序
站王国中eciffO.ABV.理管
因为每删除一个 集合里就少了一个
K混混
最后一句end sub
先判断i是不是存在
然后应该是 i,false,true,.....
kcin
这个代码是没有问题，因为是我抄写网上老师的，
我不会写，
开始可以运行，
kcin
后来，尝试，改下路径，就不习惯了，行了，
业余爱好，然后工作可以用到，就学点皮毛， 子茄.询咨
?管理-VBA-Office中国王站 啥环境，都搞到access 不行吗？
站王国中eciffO.ABV.理管
?咨询-茄子 客户不习惯access 
子茄.询咨
啥地方不习惯？
Office 多了现在正版不便宜
狗二
:)，你要做啥子
?管理-VBA-Office中国王站
站王国中eciffO.ABV.理管
他们有固定的环境，没办法
站王国中eciffO.ABV.理管
不能
excel vba如何获取 非选中的工作表中的当前选中的单元格 （或地址）
舟圆
非选中的工作表中有当前选中的单元格吗
它好像就不接受父对象 站王国中eciffO.ABV.理管
就是没有这个属性，所以才问
hcyoR.sseccA.众观瓜吃
选中才叫活动单元格
站王国中eciffO.ABV.理管
你sheet1 选中 B5
去到sheet2 ,如果知道sheet1 原来选中的是 B5
每个工作表 也有一个当前 选中区域的
hcyoR.sseccA.众观瓜吃
那你得跳转到sheet2
站王国中eciffO.ABV.理管
但VBA 只能获取 激活的工作表的选中区域
不激活的获取不到。
是的，我现在是激活再回来，但有点别扭
舟圆
你先激活要查那个表站王国中eciffO.ABV.理管
嗯嗯，是的。现在是这个方法
站王国中eciffO.ABV.理管
也加了禁止update ，但感觉有一点晃
站王国中eciffO.ABV.理管
这理由我居然无法反驳
舟圆
所以一般不动ScreenUpdating
晃一点当进度条用了
站王国中eciffO.ABV.理管
ScreenUpdating有一点重
站王国中eciffO.ABV.理管
没办法，我说不过你
