[已解决]在VBA中如何对excel中的数据进行查询？

beijiquan

比如，有一个工作表“小线数据库“，想在里面查询所有看板号不为空的数据，然后再对查询到的数据进行处理？也是用SQL语句吗？

最佳答案

月排行榜 / 总排行榜

grf1973

2015-5-22 13:46

1. Sub 非空()
   
2.     arr = [a1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To 1)
   
4.     For i = 2 To UBound(arr)
   
5.         If Len(arr(i, 15)) > 0 Then         '新看板（R）所在的O列
   
6.             n = n + 1
   
7.             brr(n, 1) = arr(i, 15)
   
8.         End If
   
9.     Next
   
10.     If n > 0 Then '''''''''Brr（第1到n项即为要找的非空数据）
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

zxx1212

感觉这个用定位条件就可以了吧

zxx1212

VBA的话，用range的find方法吧
Sub test()
    Dim mrg As Range
    Dim firstaddress
    Dim alladdress   
    With Range("j:j")
        Set mrg = .Find("*", lookat:=xlPart)
        Debug.Print TypeName(mrg)
        If Not mrg Is Nothing Then
            firstaddress = mrg.Address
            Set alladdress = mrg
            Do
                Set mrg = .FindNext(mrg)
                Set alladdress = Union(alladdress, mrg)
            Loop While mrg.Address <> firstaddress
        End If
        alladdress.Select
    End With

End Sub

grf1973

1. Sub 非空()
   
2.     arr = [a1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To 1)
   
4.     For i = 2 To UBound(arr)
   
5.         If Len(arr(i, 15)) > 0 Then         '新看板（R）所在的O列
   
6.             n = n + 1
   
7.             brr(n, 1) = arr(i, 15)
   
8.         End If
   
9.     Next
   
10.     If n > 0 Then '''''''''Brr（第1到n项即为要找的非空数据）
    
11. End Sub
    

复制代码

beijiquan

如何把查询到的数据放到一个工作表里？

zpy2

用sql运行快些吧！

beijiquan

如何使用sql?