求助EXCEL.制做宏.实现以下功能

tangqp

用公式就可以了

=IF(LEFT(B16,2)="CK","量产品",IF(AND(RIGHT(B16,3)="-XL",A16<>"治具"),"其它",""))

tangqp

Sub main()
Dim a(2, 2) As String
    a(1, 1) = "CK"
    a(1, 2) = "量产品"
    a(2, 1) = "CQ2"
    a(2, 2) = "其他"
    '其余省略
    For i = 1 To Sheets(1).UsedRange.Rows.Count
        For j = 1 To UBound(a)
            If Left(Cells(i, 2), Len(a(j, 1))) = a(j, 1) Then
                Cells(i, 3) = a(j, 2)
            End If
        Next j
    Next i
End Sub

tangqp

Sheets(1).UsedRange.Rows.Count

返回该工作表使用的行数

UBound(a)

求数组下标长度

tangqp

QQ:88054901 ,不过不常用

tangqp

数组往上增啊,a(n,1)代表型号中的字符,a(n,2)代表类别

tangqp

不是一个型号就确定了类别了吗?我记得你的资料只是求类别哦!

tangqp

数组加一维也可以,或者直接把A(n,1)将品种和型号连接起来.目的就是需要一一对应起来.这时判断条件需要修改.

tangqp

tangqp

tangqp

会,

"还有—Ｘ的没出来"

这句该一下就可以了, If InStr(Cells(i, 2), a(4, 2)) <> 0 Then