[已解决]用VBA怎么做到

大灰狼1976

你对代码的修改没有问题，你是在哪个工作表处于激活状态时运行的代码？

excel白兔

大灰狼1976 发表于 2017-4-18 15:04
你对代码的修改没有问题，你是在哪个工作表处于激活状态时运行的代码？

老师看绿色的2个表运行代码的对比

excel白兔

大灰狼1976 发表于 2017-4-18 15:04
你对代码的修改没有问题，你是在哪个工作表处于激活状态时运行的代码？

老师我这个里面有2个代码，都放在模块里了，老师都是你告诉我的，呵呵


我想做到先对比出来，后在带入数据。能否放在一起按钮一次运行完毕，

我用F8分段看代码，感觉好像是中间的空格没有了，是不是这样就出错误了老师

老师辛苦了

大灰狼1976

注释如下：

1. Sub aaa()
   
2. Dim i&, rng As Range, s$, arr
   
3. For i = 3 To [a65536].End(3).Row   '从第三行开始循环至最后一行
   
4.   arr = Split(Trim(Cells(i, 1)), " ")  '将当前工作表的A列内容去掉头尾空格后，以空格进行分列装入数组
   
5.   s = arr(0)                           '将数组第一个元素（就是前面一串数字）赋值给变量s
   
6.   If s = "*" Then s = arr(1)        '最后一行是特殊情况，取到的第一个元素是*号，所以重新取第2个元素赋值给变量s
   
7.   Set rng = Sheets(1).Columns(1).Find(s, lookat:=xlPart)    '在第一个工作表的A列查找s变量的值（局部匹配查找）
   
8.   If Not rng Is Nothing Then Cells(i, 2).Resize(, 4) = rng.Offset(, 1).Resize(, 4).Value
   
9.   '如果找到的话就将找到单元格的右边4个单元格赋值给当前表的当前行的B列~E列
   
10. Next i    '循环体
    
11. End Sub

复制代码

excel白兔

大灰狼1976 发表于 2017-4-18 15:14
注释如下：

谢谢老师，我知道怎么回事了，不好意思看完您的说明我忽然明白了，我有隐藏的打开就好了  不好意思老师。

老师这个能放在一起运行吗？或者优化下？

大灰狼1976

我也注意到隐藏了，但是我回复的贴子怎么不见了。
两个代码一起运行的话没有什么问题，但是代码最好不要合并。
你可以：
call tt
call aaa
放在一个按钮内顺序运行两个代码，这样即使两个宏存在同样的变量名称也不会影响。

excel白兔

大灰狼1976 发表于 2017-4-18 15:30
我也注意到隐藏了，但是我回复的贴子怎么不见了。
两个代码一起运行的话没有什么问题，但是代码最好不要合 ...

谢谢老师的指导感谢

super_cai_2008

学习一下！！

super_cai_2008

学习，学习

excel白兔

大灰狼1976 发表于 2017-4-18 15:30
我也注意到隐藏了，但是我回复的贴子怎么不见了。
两个代码一起运行的话没有什么问题，但是代码最好不要合 ...

老师不好意思，我又测试了下，找出有个问题，
运行    整理后的总表  的宏，得出的结果是303行，而基础表 科目试算平衡表基础是304行

少了个

5501021800    存货盘亏(盘盈)

  我不知道是不是代码模糊查找导致的错误，能改下吗老师