嘗試使用VBA在Excel中存儲文本文件中的唯一字符串

Question

我在將一個字符串輸入到excel中的一個循環中遇到問題。我從可以是任意長度的文本文件中提取數據，但到目前爲止我所使用的所有內容都在100行數據和50000行數據之間。我試圖提取的字符串長度爲4個字符，通常是數字，但可以是字母數字。默認情況下，字符爲0001,0002,0003和0004，但如果他們選擇使用任何其他4個字符，則這完全取決於我們的客戶。在Excel中輸入數據時，我只想輸入唯一值。

整個代碼可以給出，但其他一切正常，所以我不認爲這是必要的。如果你這麼認爲，請求，我會編輯它。請記住，我已經嘗試了許多不同的嘗試，並且邏輯似乎從未解決。

結果是包含文本文件中每個值的一長串行。

如果我不得不猜測，這是由於字符串是一個數字，然後excel存儲它只是「2」而不是「0002」，所以我已經格式化整列以顯示4個字符。即使如此，我認爲Excel將它視爲「2」，所以字符串從不匹配數據。

任何幫助表示讚賞。

FileName = Application.GetOpenFilename() 
Open FileName For Input As #1 

strSearch = "MTRDT" 

Do Until EOF(1) 
Line Input #1, ReadData 
    If Left(ReadData, Len(strSearch)) = strSearch Then 
      MtrdtCount = MtrdtCount + 1 
      MeterType = Mid(ReadData, 78, 4) 
      lastrow = Cells(Rows.Count, "G").End(xlUp).Row + 1 
      MeterTypeTest = True 

      For Each cell In Range("G3:G" & lastrow) 
       If MeterType = cell.Value Then 
        MeterTypeTest = False 
        Exit For 
       End If 
      Next cell 

      If MeterTypeTest = True Then 
       Range("G" & MeterTypeCnt) = MeterType 
       MeterTypeCnt = MeterTypeCnt + 1 

      End If 
    Else 
    End If 
Loop 

Answer 1

如果所有的數據已使用所示的方法進入，Excel將不會看到，因爲0002爲數字2輸入的數據 - 這將是把它看作字符串"0002"。

但是，您正在測試這些值與"'" & Mid(ReadData, 78, 4)，這意味着您將比較"0002"與"'0002"。

在輸入數據到單元格時，您需要添加'字符，而不是在進行比較之前。所以下面應該工作：

FileName = Application.GetOpenFilename() 
Open FileName For Input As #1 

strSearch = "MTRDT" 

Do Until EOF(1) 
Line Input #1, ReadData 
    If Left(ReadData, Len(strSearch)) = strSearch Then 
     MtrdtCount = MtrdtCount + 1 
     MeterType = Mid(ReadData, 78, 4) 
     lastrow = Cells(Rows.Count, "G").End(xlUp).Row + 1 
     MeterTypeTest = True 

     For Each cell In Range("G3:G" & lastrow) 
      If MeterType = cell.Value Then 
       MeterTypeTest = False 
       Exit For 
      End If 
     Next cell 

     If MeterTypeTest Then 
      Range("G" & MeterTypeCnt) = "'" & MeterType 
      MeterTypeCnt = MeterTypeCnt + 1 
     End If 
    End If 
Loop 

Answer 2

我想設置欄中的「G」的numberformatLocal爲波紋管

Columns("g").NumberFormatLocal = "@" 


Filename = Application.GetOpenFilename() 
Open Filename For Input As #1 

strSearch = "MTRDT" 

Do Until EOF(1) 
Line Input #1, ReadData 
    If Left(ReadData, Len(strSearch)) = strSearch Then 
      MtrdtCount = MtrdtCount + 1 
      MeterType = Mid(ReadData, 78, 4) 
      lastrow = Cells(Rows.Count, "G").End(xlUp).Row + 1 
      MeterTypeTest = True 

      For Each cell In Range("G3:G" & lastrow) 
       If MeterType = cell.Value Then 
        MeterTypeTest = False 
        Exit For 
       End If 
      Next cell 

      If MeterTypeTest = True Then 
       Range("G" & MeterTypeCnt) = MeterType 
       MeterTypeCnt = MeterTypeCnt + 1 

      End If 
    Else 
    End If 
Loop