Question

我在html中有以下数据

    ....
   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

我需要获取8列和同一行的值。

Answer 1

我认为宏录音机在这里会非常有用。

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

在HTML标记中拆分字符串并将它们放在不同的列VBA中

1 个答案: