但K2的内容在数据源里没有，就会跳出出错。调试

bingoleexuben

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr1, arr2, ts%, i%, n%
Range("J4:S50").ClearContents
If [K2].Value = "" Then Exit Sub
arr1 = Range("a2", [H2].End(xlDown))
ts = Application.CountIf([a:a], [K2])
ReDim arr2(1 To ts, 1 To 8)
On Error Resume Next
For i = 1 To UBound(arr1)
If arr1(i, 1) = [K2].Value Then
n = n + 1
arr2(n, 1) = arr1(i, 1)
arr2(n, 2) = arr1(i, 2)
arr2(n, 3) = arr1(i, 3)
arr2(n, 4) = arr1(i, 4)
arr2(n, 5) = arr1(i, 5)
arr2(n, 6) = arr1(i, 6)
arr2(n, 7) = arr1(i, 7)
End If
Next
[J4].Resize(ts, 7) = arr2
End Sub
求老师解答！并帮忙优化代码，谢谢

tspliu

If ts < 1 Then Exit Sub

bingoleexuben

tspliu 发表于 2019-11-8 09:58
If ts < 1 Then Exit Sub

谢谢老师，我马上 去改

1055751654

n = n + 1后面可以加个FOR比较短
For nn = 1 To 7
arr2(n, nn) = arr1(i, nn)
Next

bingoleexuben

1055751654 发表于 2019-11-8 10:57
n = n + 1后面可以加个FOR比较短
For nn = 1 To 7
arr2(n, nn) = arr1(i, nn)

谢谢老师。。。。。。