[已解决]关于 excel VBA 代码编写的 问题，请大神解答

yorkchenshunan

误解了你的意思，看这个附件

1. Sub test()
   
2. Dim n%, x%, y%, arr, arr2
   
3. n = Application.InputBox("请输入数字", , , , , , , 1)
   
4. If Application.WorksheetFunction.CountIf([a:a], n) = 0 Then MsgBox "无该数据，请重试": Exit Sub
   
5. arr = Range("a1", Range("a65536").End(xlUp))
   
6. ReDim arr2(1 To UBound(arr), 1 To 1)
   
7. For x = 1 To UBound(arr)
   
8.     If arr(x, 1) = n Then
   
9.         y = y + 1
   
10.         arr2(y, 1) = arr(x + 1, 1)
    
11.     End If
    
12. Next x
    
13. [b:b].ClearContents
    
14. [b1].Resize(y) = arr2
    
15. End Sub

复制代码

fz1128

七彩屋 发表于 2015-10-20 18:11

谢谢你，你的这个很好，受教了