スプリットHTMLタグ内の文字列と異なる列にVBA

-2

私は8列と同じ行の値を取得する必要がありスプリットHTMLタグ内の文字列と異なる列にVBA

 
    .... 
    35.25 65.45 Car  0.2584 0.2587 0.2413 0.8956 8456 4512 
    556 45.23   IN  1.3696 4.2384 9.2475 4657 4732

HTML

に次のデータを持っているが、それらを置きます。

出典

2017-05-31 rukumini venkatesh

最初に行ったことを表示してください。 –

私は正規表現を使用しようとしました。しかし、私は文字列と配列操作を使用してそれを行うことができるかどうかを確認したいと思います。 –

質問を編集してHTMLコンテンツのサンプルを追加してください。 – omegastripes

私はマクロレコーダーがここで非常に役に立つと思います。

Sub Macro1() 

    Columns("A:A").Select 
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ 
     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ 
     Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ 
     :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ 
     Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True 
    With Selection 
     .HorizontalAlignment = xlGeneral 
     .VerticalAlignment = xlBottom 
     .WrapText = False 
     .Orientation = 0 
     .AddIndent = False 
     .IndentLevel = 0 
     .ShrinkToFit = False 
     .ReadingOrder = xlContext 
     .MergeCells = False 
    End With 
    Cells.Select 
    Cells.EntireColumn.AutoFit 
    Range("A1").Select 
End Sub

出典

2017-05-31 16:10:31 ryguy72

スプリットHTMLタグ内の文字列と異なる列にVBA

答えて

関連する問題