VBAでログ整形と検索

Question

VBAでログの整形をおこなっております。
ログの取り込みまではできたのですが、
曜日、月、日、時間を右の画像の様にしたいのですが、
なにを、どのようにするべきかが全く分からない状態です。

J列にあるJSTの右側には、必ず、曜日、月、日、時間があるので、
Like演算子でJSTを検索するようにしたのですが、なぜか、JSTが検索されない状態です。

もっと、効率的な実現方法等ご存じの方、参考のコードをご教授いただければと思います。

    Workbooks.OpenText Filename:=textPath, _
        DataType:=xlDelimited, _
        Tab:=True, _
        Space:=True


    For i = 1 To LastRow
        If Cells(i, 7).Value Like "*JST*" Then
            Cells(i, 1) = Cells(i, 4).Value
            Cells(i, 2) = Cells(i, 5).Value
        End If
    Next

Comments

[RiaFeed]

説明や画像ではJSTはJ列にあるということですが、VBAでは7列目=G列を検索していますが。

[退会済みユーザー]

J列を検索が正しいです。

Answer 1

ご参考に。

Cellsの列は、列名で指定することもできます。このほうが読みやすいかも。
"JST" に完全一致なら、Likeではなく =演算子でいいでしょう。
転記データはArray関数で配列にしておいて、一気に代入するとシンプルになります。

    Dim i As Long, ary As Variant    

    For i = 1 To LastRow
        If Cells(i, "J").Value = "JST" Then
            ary = Array(Cells(i, "E").Value, Cells(i, "F").Value, Cells(i, "H").Value, Cells(i, "K").Value)
        End If
        If IsArray(ary) Then Cells(i, "A").Resize(, 4).Value = ary
    Next

Answer 2

JSTが検索にヒットしないのはJ列が10列目なのに7列目を検索しているからでしょう。
『 If Cells(i, 10).Value Like "JST" Then』とすればまずは解決するかと。
J列にJSTと記載のない行についても日付を入れるのであればJSTを見つけてから次にJSTを見つけるまでは前回見つけたJSTが記載された行の日付を転機し続ける必要がありそうですね。