如何仅在列包含数据时运行文本到列

Question

我需要在一个范围内为列 MACRO 运行文本，该范围因导入的数据而异。我已经有了拆分 vba，只需记录它，但是当列为空白时，它会给我一个“没有要解析的数据”错误。可能有 2 列到 10 列，所以 如果该列为空白，我需要让 vba 忽略“将文本拆分为列”。

vba 相当新，所以代码是基本的，但并不复杂。这是我为其中一列记录的拆分：

 Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=":", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

它还拆分列 E、G、I 和 K

Answer 1

您可以创建一个循环，查看每一列，如果 CountA() 为 0，则表示其中没有数据。

Sub t()
Dim myCols() As Variant
Dim i As Long

myCols = Array(3, 5, 7, 9, 11)

For i = LBound(myCols) To UBound(myCols)
    If WorksheetFunction.CountA(Columns(myCols(i))) <> 0 Then
        Columns(myCols(i)).TextToColumns Destination:=Cells(1,myCols(i)), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=":", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
    End If
Next i

End Sub

如果您需要添加/减去列，只需编辑 myCols 数组。