求老师帮写个VBA代码从多表中选择相同及不同数据

efttr55dyf

lzxdy 发表于 2017-11-11 18:37
行列转换有误导致“下标越界”，已修正，能处理全部块数据了。

lzxdy 老师您好：
            经过认真比对和测试 第一、二、三、四、5、6、7、8、9、10排及表11、表12内数据完全正确无误，充分说明lzxdy 老师您的代码已经完全解决了我提出的问题，在此表示衷心地感谢。
        于情于理也不应再次打扰，可是随着不断的将 第一、二、三、四、5、6、7、8、9、10排结果的继续应用，也发现两个问题和 继续应用的不便之处。
          问题一：第一、二、三、四、5、6、7、8、9、10排中选择出来的某些数据已变形[数据结果是完全正确的，可是已经精简成一位或者二位数，如1、9、18.……]  没有保持完整的3位数了，比如001显示为1、088显示为88      
          问题二：第5、6、7、8、9、10排（区域范围J211:HP275）内选择出来的数据没有按从小到大顺序排列。
      对于没有保持完整的3位数，继续应用时程式无法正确识别，导致结果有误，对于没有按从小到大顺序排列的数据应用时费时且时有造成遗漏。为了免错只能手工将不完整3位数补齐及排序，lzxdy 老师您好，再提不情之请！可否请您在方便之时再次修改一下代码，解决此瑕疵！谢谢。

lzxdy

efttr55dyf 发表于 2017-11-12 11:31
lzxdy 老师您好：
            经过认真比对和测试 第一、二、三、四、5、6、7、8、9、10排及表11、表 ...

疏忽了，作如下修正：
1，    [j167:hp301].ClearContents  改为：
    [j167:hp301].ClearContents
    [j167:hp301].NumberFormatLocal = "000"
2，brr(r, c) = (s(k)(j))  改为：
     brr(r, c) = Application.Small(s(k), i)
不足之处继续交流，共同进步。

efttr55dyf

lzxdy 发表于 2017-11-12 12:38
疏忽了，作如下修正：
1，    [j167:hp301].ClearContents  改为：
    [j167:hp301].ClearContents

哈哈  
       “改变世界”的结果
                      原来
                        “只需要lzxdy 老师两句话”
真的就这么简单！
              虽是毫末技艺
              却是顶上功夫
可惜    能说那是   毫末技艺的人   是 lzxdy 老师类
对我等  能说的就是 却是顶上功夫  了  我预知 那 毫末  不知  天上宫阙，他夕是何年！（今宵酒醒没有？喔原来是梦里寻它……）