查询关键字的VB,怎么才能不区别大小写？

lightbooby

我有一个宏，其中需要查询以R8单元格为相关信息的所有数据，但是默认是要区分大小写，相同的单词
BIRD2850
Bird2850
这样子是无法全部查询出来的，请问怎么修改？

hm = Sheets("Flight Booking Sheet").Range("R8").Value  ' 查询关键字

chxw68

使用ucase()或者lcase()函数。

lightbooby

chxw68 发表于 2014-12-16 16:20
使用ucase()或者lcase()函数。

Sub 转表()
    Dim d, arr, brr, wb As Workbook
    Application.ScreenUpdating = False  ' 关闭屏幕刷新,加快运行速度
    Set d = CreateObject("Scripting.Dictionary")  ' 创建字典
    hm = Sheets("Flight Booking Sheet").LCase(Range("R8").Value)   ' 查询关键字,（我需要按照R8单元格查询原始报表里的数据，不区别大小号字母）
    For Each wb In Workbooks
        d(wb.Name) = ""
    Next ' 字典用于确认"原始数据.xlsx"是否打开,未打开则打开,打开了则激活使其成为活动工作簿
    If Not d.exists("原始报表.xlsx") Then Workbooks.Open (ThisWorkbook.Path & "\report\原始报表.xlsx")
    Workbooks("原始报表.xlsx").Activate
    With ActiveWorkbook  ' 在活动工作簿(即"原始数据.xlsx")的"原始报表"上用arr数组取数据后，
        arr = .Sheets("原始报表").Range("A1").CurrentRegion
        .Close False    ' 关闭"原始数据.xlsx"工作簿
    End With
    ReDim brr(1 To UBound(arr), 1 To 40) ' 定义数组brr存储查询结果
    For i = 2 To UBound(arr) ' 在原始数据中循环
        If arr(i, 3) = hm Then ' 根据查询关键字,按对应关系把原始数据(arr数组中的值)写入结果数组brr
            m = m + 1  ' 的行,m的初始值为0
            brr(m, 1) = m  ' 结果数组第1列=行号,也就是序号
            brr(m, 3) = arr(i, 35)
            brr(m, 4) = arr(i, 34)
            brr(m, 5) = arr(i, 33)        End If
    Next
    Sheets("Flight Booking Sheet").Range("A15").Resize(4000, 40).ClearContents ' 清
    Sheets("Flight Booking Sheet").Range("A15").Resize(m, 40) = brr '
    Application.ScreenUpdating = True ' 开启屏幕刷新
    MsgBox "完成"
    End Sub



请问老师这个函数怎么用？以上是完全代码。

chxw68

hm =LCase(Sheets("Flight Booking Sheet").Range("R8").Value)

lightbooby

chxw68 发表于 2014-12-16 16:29
hm =LCase(Sheets("Flight Booking Sheet").Range("R8").Value)

Sheets("Flight Booking Sheet").Range("A15").Resize(m, 40) = brr '       我修改了之后就会提示我这段错了，不知道为什么？

一指禅62

Find函数管用

1. 
   
2. Sub 查询()
   
3.    Dim Rng As Range, i As Integer
   
4.    Sheet1.Select
   
5.    Range("C:C").ClearContents
   
6.    For i = 1 To 10
   
7. '      Set Rng = Range("A" & i).Find(Range("R1"), Lookat:=xlPart)  '模糊匹配
   
8. '      Set Rng = Range("A" & i).Find(Range("R1"), Lookat:=xlWhole) '精确匹配
   
9. '      Set Rng = Range("A" & i).Find(Range("R1"), MatchCase:=True) '区分大小写
   
10.       Set Rng = Range("A" & i).Find(Range("R1"), MatchCase:=False) '不区分大小写
    
11.       If Not Rng Is Nothing Then Range("C65536").End(3).Offset(1) = Rng
    
12.    Next
    
13. End Sub

复制代码

lightbooby

一指禅62 发表于 2014-12-16 16:54
Find函数管用

不知道怎么修改啊，我上文的函数完全正常，就是不能区别大小写，我郁闷啊。

zax010

代码最顶端加一句：
Option Compare Text
试试。

lightbooby

zax010 发表于 2014-12-16 17:28
代码最顶端加一句：
Option Compare Text
试试。

非常非常感谢啊，我加了，可以用，谢谢。
前几天忙，忘记回来感谢你啦。

小天地68

lightbooby 发表于 2014-12-24 12:35
非常非常感谢啊，我加了，可以用，谢谢。
前几天忙，忘记回来感谢你啦。

高手高手高高手