Excel宏細胞

讀取文本文件，並找到比賽我真的可以使用一些幫助Excel宏細胞

我有我需要到我的excel文件讀取的兩個.TXT/CSV文件。

在我的Excel文件中，我有一個整列，每個單元格包含字符串，我需要編寫一個腳本以便能夠找到匹配並從該txt文件中複製相鄰列。

在我的txt文件的單個行的一個示例如下所示：

「AB101AA」，「AB10 1AA」，「AB101A」，「AB10 1A」，「AB101」，「AB10 1」，」 AB10「，」AB10「，」AB「，」10「，394251,806376 ,, 」AB101AF「，」AB10 1AF「，」ABERDEEN「，」ABERDEEN「，」ABERDEEN，CITY OF「

My excel文件會有一個可能會說「AB101AF」的單元格，我希望相應單元格運行一百萬行並找到匹配，然後在txt文件中找到相應的第n個單元格，並將其返回到Excel電子表格示例「ABERDEEN，的城市」。

我知道我沒有幫助解釋這個問題。但任何幫助，將不勝感激。

謝謝

來源

2013-05-30 Jbn

哪裏是代碼拋出錯誤？ – 2013-05-30 10:05:13

如果這是一百萬行表，與英國郵政編碼看起來一樣，我寧願將csv數據放入一個「正確的」數據庫，然後擔心查詢。 –

' 'Sub test（） 'Dim fn As String，x，i As Long，r As Range 'fn = ThisWorkbook.Path＆「\ part_1.txt」 'x = Split（CreateObject（「Scripting.FileSystemObject 「）.OpenTextFile（fn）.ReadAll，vbCrLf） ' 'For Each r In Sheets（1）.Range（」a1「）。CurrentRegion.Columns（1）.Cells 'For i = 0 To UBound（x ） '如果x（I）像「*」＆r.Value＆「*」那麼 ' '上的錯誤繼續下一步 ' 「R（2）。價值= REPLACE（分割（X（i）中， vbTab）（6），「」「」，「」） 'On Error GoTo 0 ' 'Exit For 'End If 'Next 'Next 'End Sub – Jbn

根據您的文本文件的大小，你使用Excel中的GetExternalData選項可以導入該文件。這將允許您將數據加載到其他工作表中，然後使用主工作表中的數據查找。使用匹配和/或查找應該可以幫到這裏。

您也可以將工作簿連接添加到文本文件並使用連接進行搜索。

來源

2013-05-30 11:19:19

回答

相關問題