0

皆さん、VBA を使用して、スペースで区切られた非常に大きなテキスト ファイルを Excel スプレッドシートに読み込もうとしています。テキスト ファイルには、複数のスペースで区切られた 5 列のデータが含まれています。ファイルを開き、ファイルをさまざまな列に分割することができました。ここで、スプレッドシートへの出力として特定の基準を満たす行のみを選択したいと思います。たとえば、最初の列が DIES で、2 番目の列が EUR の行のみを選択したいと思います。これを効率的に達成する方法について何かアドバイスはありますか? If/Else ステートメントでさまざまな組み合わせを試しましたが、うまくいかないようです。ありがとうございました。

テキストファイル

DIES         EUR         REFGR       OCT2008                    847.000 
VARS         EUR         REFGR       NOV2008                    154.000 
EFFS         OECD        REFGR       DEC2008                    507.000 
DIES         EUR         REFGR       JAN2008                    090.000 
USUE         EUR         REFGR       FEB2008                    836.000

そして、これまでの私のコード

Sub ImportData()

Open "FileName" For Input As #1

lRow = 2

Do While Not EOF(1)
    Line Input #1, Data
    Data = Application.WorksheetFunction.Trim(Data)           
sData = Split(Data, " ")                                    

    With Sheet1
        lColumn = 2
        For intCount = LBound(sData) To UBound(sData)
            .Cells(lRow, lColumn) = sData(intCount)
            lColumn = lColumn + 1
        Next intCount
    End With
    lRow = lRow + 1

Loop

Close #1


End Sub
4

2 に答える 2