|
犯了同样的错误,没有处理股票代码的0。
修改了下:- Private Sub CommandButton2_Click()
- Dim arr, brr, crr
- Dim i&, j&, nub, iRow
- arr = Sheets("AAA").Range("H2:H6")
- brr = Sheets("数据源").UsedRange
- ReDim crr(1 To UBound(brr), 1 To 7)
- For i = 1 To UBound(arr)
- For j = 2 To UBound(brr)
- If brr(j, 7) Like "*" & arr(i, 1) & "*" Or brr(j, 6) Like "*" & arr(i, 1) & "*" Or brr(j, 5) Like "*" & arr(i, 1) & "*" Then
- iRow = iRow + 1
- crr(iRow, 1) = brr(j, 1)
- crr(iRow, 2) = brr(j, 2)
- crr(iRow, 3) = brr(j, 3)
- crr(iRow, 4) = brr(j, 4)
- crr(iRow, 5) = brr(j, 5)
- crr(iRow, 6) = brr(j, 6)
- crr(iRow, 7) = brr(j, 7)
- End If
- Next
- Next
- Sheets("结果表").Activate
- With ActiveSheet
- .Range("A2:G" & Range("a65536").End(3).Row).ClearContents
- .Range("A:A").NumberFormatLocal = "@"
- .Range("A2").Resize(UBound(crr), 7) = crr
- End With
- End Sub
复制代码 |
|