Преобразуйте текст в столбцы и вставьте заголовок с именами столбцов.

Question

Ниже приведен код, где я могу преобразовать текст в столбцы.

Что я ищу? Я хочу добавить заголовок (сдвинуть 1-ю строку вниз и добавить заголовок) с Tno, Host, Data, String, ID, Jno.Можете ли вы помочь с этим

Sub test()
Dim ws As Worksheet

Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Select Case UCase(ws.Name)
    Case "MASTER", "DATA"
        'do nothing
    Case Else
        ws.Columns(1).TextToColumns Destination:=ws.Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
            Tab:=False, _
            Semicolon:=False, _
            Comma:=True, _
            Space:=False, _
            Other:=False, OtherChar:="|", _
            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), Array(9, 1), Array(10, 1)), _
            TrailingMinusNumbers:=True
End Select
Next ws
Application.ScreenUpdating = True
End Sub

Answer 1

Добавьте следующий код после цикла for each:

Sub test()
Dim ws As Worksheet

Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Select Case UCase(ws.Name)
    Case "MASTER", "DATA"
        'do nothing
    Case Else
        ws.Columns(1).TextToColumns Destination:=ws.Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
            Tab:=False, _
            Semicolon:=False, _
            Comma:=True, _
            Space:=False, _
            Other:=False, OtherChar:="|", _
            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), Array(9, 1), Array(10, 1)), _
            TrailingMinusNumbers:=True
End Select
Next ws

    'insert header
    Range("A1").EntireRow.Insert
    Range("A1").Value = "Tno"
    Range("B1").Value = "Host"
    Range("C1").Value = "Data"
    Range("D1").Value = "String"
    Range("E1").Value = "ID"
    Range("F1").Value = "Jno"

Application.ScreenUpdating = True
End Sub