VBA。查找，日期，序列號日期和數據類型屬性（.Text，.Value，.Value2）

Question

使用Range.Find方法遍歷一個範圍中的每個值以查看它是否存在於另一個範圍中。問題在於兩個範圍的格式都不相同（但所有值都是表面上的日期），這導致了許多「錯誤否定」（即，值在它們應該是時不匹配）。是否有可能控制輸入和搜索範圍的數據類型，以便系統將蘋果與蘋果進行比較併成功識別匹配？

下面是數據和代碼：

Sheet1 (custom format, "yyyy-mm-dd") 
A1 2016-01-01 
A2 2016-01-02 
A3 2016-01-03 
A4 2016-01-04 
A5 2016-01-05 

Sheet2 (text format) 
A1 2016-01-01 
A2 2016-01-03 
A3 2016-01-05 

Sheet3 (display as "yyyy-mm-dd") 
[NO DATA] 

Sheet4 (display as "yyyy-mm-dd") 
[NO DATA] 

代碼：

Sub FindTest() 
      Dim inputRange As Range 
      Dim searchRange As Range 
      Dim found As Range 
      Set inputRange = Worksheets(1).Cells(1, 1).Resize(7, 1) 
      Set searchRange = Worksheets(2).Cells(1, 1).Resize(5, 1) 
      For Each i In inputRange 
       Set found = searchRange.Find _ 
        (What:=i, _ 
        after:=Cells(1, 1), _ 
        LookIn:=xlValues, _ 
        LookAt:=xlWhole, _ 
        SearchOrder:=xlByRows, _ 
        SearchDirection:=xlNext, _ 
        MatchCase:=False, _ 
        SearchFormat:=False) 
       If Not (found Is Nothing) Then 
        Worksheets(3).Cells(i.Row, i.Column) = i 
       Else 
        Worksheets(4).Cells(i.Row, i.Column) = i 
       End If 
      Next i 
     End Sub 

對於這項工作，我認爲我需要inputRange和searchRange所有的值作爲被比較.Text，但我不確定到那裏。

Answer 1

如果您需要將數據保留爲真正的日期和文本 - 看起來像日期那麼格式化他飛行時的真實日期值以查找「文本日期」內的匹配。

Sub FindTest() 
    Dim inputRange As Range, i As Range 
    Dim searchRange As Range, found As Range 

    Set inputRange = Worksheets(1).Cells(2, 1).Resize(99, 1) 
    Set searchRange = Worksheets(2).Columns(1) 

    For Each i In inputRange 
     If IsDate(i) Then      ' ▼ format into TXT here ▼ 
      Set found = searchRange.Find(What:=Format(i.Value2, "yyyy-mm-dd"), _ 
          after:=Cells(1), LookIn:=xlValues, LookAt:=xlWhole, _ 
          SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
          MatchCase:=False, SearchFormat:=False) 
      If Not (found Is Nothing) Then 
       With Worksheets(3) 
        .Cells(i.Row, i.Column) = i.Address(external:=True) 
        .Cells(i.Row, i.Column + 1) = i.Address(external:=True) 
       End With 
      Else 
       With Worksheets(4) 
        .Cells(i.Row, i.Column) = i.Address(external:=True) 
        .Cells(i.Row, i.Column + 1) = i.Address(external:=True) 
       End With 
      End If 
     End If 
    Next i 
End Sub 

或者，Range.Text property應提供相同的答案。應用Trim命令以確保inputRange日期未使用格式掩碼中的尾隨_)格式化。

 Set found = searchRange.Find(What:=Trim(i.Text), _ 
         after:=Cells(1), LookIn:=xlValues, LookAt:=xlWhole, _ 
         SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
         MatchCase:=False, SearchFormat:=False) 

附錄：

如果有領導或searchRange尾隨空格的可能性，然後更改您的搜索參數LookAt:=xlPart。雖然預先修復數據仍然是更好的選擇，但它會忽略可能干擾成功匹配的無關字符。

如果修復數據可以被認爲是一個選項，然後在文本值毯子Range.TextToColumns method用年月日xlColumnDataType將迅速轉換您yyyy-mm-dd「文本的日期」爲真正的日期。

With searchRange 
     .TextToColumns Destination: .Cells (1), DataType:=xlFixedWidth, _ 
         FieldInfo:=Array(0, 5) 
    End With 

這將刪除前/後多餘的字符，讓你與真正的日期列。

Answer 2

TextToColumn代碼（不成功）

Sub FindTest() 
Dim inputRange As Range 
Dim i As Range 
Dim searchRange As Range 
Dim found As Range 
Set inputRange = Worksheets(1).Cells(1, 1).Resize(7, 1) 
Set searchRange = Worksheets(2).Cells(1, 1).Resize(5, 1) 
searchRange.TextToColumns Destination:=Worksheets(2).Cells(1), DataType:=xlDelimited, FieldInfo:=Array(1, xlTextFormat) 
For Each i In inputRange 
    Set found = searchRange.Find _ 
     (What:=i, _ 
     after:=Cells(1, 1), _ 
     LookIn:=xlValues, _ 
     LookAt:=xlWhole, _ 
     SearchOrder:=xlByRows, _ 
     SearchDirection:=xlNext, _ 
     MatchCase:=False, _ 
     SearchFormat:=False) 
    If Not (found Is Nothing) Then 
     Worksheets(3).Cells(i.Row, i.Column) = i 
    Else 
     Worksheets(4).Cells(i.Row, i.Column) = i 
    End If 
Next i 

末次