请教代码怎样简化，正努力学习VBA

想飞的牛

Sub p2()
Dim rng As Range, c As Range, J As Integer

For Each rng In Range("b2:b12")
J = J + 1
Set c = Cells(J + 1, 3)
  If rng.Text Like "*苹果*" Then
c = "苹果"
ElseIf rng.Text Like "*梨*" Then
c = "梨"
ElseIf rng.Text Like "*火龙果*" Then
c = "火龙果"
ElseIf rng.Text Like "*桔子*" Then
c = "桔子"
Else: c = "错误"

End If

Next
Set c = Nothing
End Sub

山菊花

Sub p2()
    Dim nRow%, nR2%, Arr(), Brr(), Crr()
    nR2 = Range("f1048576").End(xlUp).Row
    Crr = Range("f1:f" & nR2).Value '将分类标准保存到数组
   
    nRow = Range("b1048576").End(xlUp).Row
    Arr = Range("b1:b" & nRow).Value '将B列数据保存到数组
   
    ReDim Brr(2 To nRow, 1 To 1)
   
    For i = 2 To nRow
        For J = 2 To nR2
            If Arr(i, 1) Like "*" & Crr(J, 1) & "*" Then '对比分类标准
                Brr(i, 1) = Crr(J, 1) '将符合条件的类型保存到数组Brr中
                Exit For
            End If
        Next
        If J > nR2 Then Brr(J, 1) = "错误"
    Next
    Range("c2:c" & nRow).Value = Brr '输出Brr到C列
End Sub

想飞的牛

山菊花 发表于 2018-8-11 16:32
Sub p2()
    Dim nRow%, nR2%, Arr(), Brr(), Crr()
    nR2 = Range("f1048576").End(xlUp).Row

谢谢总版主