vba取一列数中非0的行_Vba第三十九课

Vba第三十九课

Vba中index函数使用

如图：

要求：根据单元格A15提供的姓名，查找它的详细信息；

代码如下：

Sub 查询()

Dim arr, name

Sheets(1).Range("b15:g15") = ""

name = Sheets(1).[a15].Value

arr = Sheets(1).Range("a2:g" & Sheets(1).Range("a100").End(xlUp).Row)

For a = 1 To UBound(arr)

If arr(a, 1) = name Then

Sheets(1).Range("a15").Resize(, UBound(arr, 2)) = Application.Index(arr, a, 0)

Exit Sub

End If

Next

End Sub

代码解析：

Sheets(1).Range("b15:g15") = ""

因为要多次使用，使用前把单元格区域b15:g