求助大神帮忙诊断报错部分代码该如何修改

Justin-2016

求助代码问题诊断.zip (11.75 KB, 下载次数: 2)

2018-8-5 17:22 上传

点击文件名下载附件

这个也不对，不知道错在哪里。

vbee

2个=号就是你的不对了

duquancai

你看看 你出错的那个等式 你不觉得很奇怪吗？另外你提取左边3个字符，而右边是4个字符，就算写对了也是永远是不可能成立！就是判断条件永远为假！也就是if.......end if之间的语句永远不会被执行！

vbee

1. Sub 拆分()
   
2.         Dim arr, brr(1 To 100, 1 To 3), i%, k%
   
3.         arr = Range("a2:c7")
   
4.         For i = 1 To UBound(arr)
   
5.                 If arr(i, 1) Like "*2-1线*" Then
   
6.                         k = k + 1
   
7.                         brr(k, 1) = arr(i, 1)
   
8.                         brr(k, 2) = arr(i, 2)
   
9.                         brr(k, 3) = arr(i, 3)
   
10.                 End If
    
11.         Next i
    
12.         Range("e2").Resize(100, 3).ClearContents
    
13.         Range("e2").Resize(k, 3) = brr
    
14. End Sub
    

复制代码

duquancai

你：“ Justin-2016 于 2018-8-5 17:25 编辑”

结果还是 错上加错！！！

Justin-2016

duquancai 发表于 2018-8-5 17:28
你：“ Justin-2016 于 2018-8-5 17:25 编辑”

结果还是 改错！！！

换附件主题了，现在1楼上传的附件是另外一个附件，谢谢！

duquancai

Justin-2016 发表于 2018-8-5 17:34
换附件主题了，现在1楼上传的附件是另外一个附件，谢谢！

换了，你那个代码 仍然是错的！你自己查一下帮助：filter函数的用法吧！

Justin-2016

duquancai 发表于 2018-8-5 17:36
换了，你那个代码 仍然是错的！你自己查一下帮助：filter函数的用法吧！

查了，那个帮助我看了没解决我的问题，不过，我刚看到您用Like ，我重写了个代码就对了，谢谢！

Sub fenchai()
        Dim arr, brr1(1 To 100, 1 To 2), brr2(1 To 100, 1 To 2), i%, k%, m%
        arr = Range("a2:b6")
        For i = 1 To UBound(arr)
                If arr(i, 1) Like "*模具" Then
                        k = k + 1
                        brr1(k, 1) = arr(i, 1)
                        brr1(k, 2) = arr(i, 2)
                Else
                        m = m + 1
                        brr2(m, 1) = arr(i, 1)
                        brr2(m, 2) = arr(i, 2)
                End If
        Next i
        Range("d2").Resize(k, 2) = brr1
        Range("f2").Resize(m, 2) = brr2
End Sub

duquancai

Justin-2016 发表于 2018-8-5 17:34
换附件主题了，现在1楼上传的附件是另外一个附件，谢谢！

换附件主题了？那么就写一个你换了主体的吧！！！

1. Sub 条件分拆()
   
2.       msgbox "只需要一个数组就行了！"
   
3. End Sub

复制代码

Justin-2016

duquancai 发表于 2018-8-5 17:36
换了，你那个代码 仍然是错的！你自己查一下帮助：filter函数的用法吧！

filter搞不定，我用您的Like,就对了。

Sub fenchai()
        Dim arr, brr1(1 To 100, 1 To 2), brr2(1 To 100, 1 To 2), i%, k%, m%, t As Single
        arr = Sheets(1).Range("a2:b100")
        t = Timer
        For i = 1 To UBound(arr)
                If arr(i, 1) Like "*模具" Then
                        k = k + 1
                        brr1(k, 1) = arr(i, 1)
                        brr1(k, 2) = arr(i, 2)
                Else
                        m = m + 1
                        brr2(m, 1) = arr(i, 1)
                        brr2(m, 2) = arr(i, 2)
                End If
        Next i
        Sheets(2).Range("a2").Resize(k, 2) = brr1
        Sheets(3).Range("a2").Resize(m, 2) = brr2
        MsgBox "OK"
End Sub