vba - excel中的数组改变字符串的格式

Question

我想要分离图像中的数据。图像中的代码一旦到达分号和缩进就不会分开。我想将这些单词分隔到一个新的工作表上，以便我将在数组中搜索某些单词。

感谢您的帮助!

Answer 1

下面的代码不仅会分割数据，还会复制格式，这似乎是您想要的。假设数据位于 A 列

Option Explicit
Sub SplitWithFormat()
    Dim R As Range, C As Range
    Dim i As Long, V As Variant

Set R = Range("a1", Cells(Rows.Count, "A").End(xlUp))
For Each C In R
    With C
        .TextToColumns Destination:=.Offset(0, 1), DataType:=xlDelimited, _
        consecutivedelimiter:=True, Tab:=False, semicolon:=False, comma:=False, _
        Space:=True, other:=False

        .Copy
        Range(.Offset(0, 1), Cells(.Row, Columns.Count).End(xlToLeft)).PasteSpecial xlPasteFormats
    End With
Next C
Application.CutCopyMode = False

End Sub