Сплит результатов в столбцах

Question

У меня есть результаты, сгенерированные выходом журнала в файл CSV.

Есть ли способ с формулой или простой VBA. Я могу разделить результаты, чтобы информация для Path была столбец A и соответствующее значение для Access in в столбце B?

Путь: Microsoft.PowerShell.Core \ FileSystem :: C: \ Users \ VMA \ Desktop \ VMADMIN \ CSV доступа: {System.Security.AccessControl.FileSystemAccessRule, System.Security.AccessControl.FileSystemAccessRule, System.Security .AccessControl.FileSystemAccessRule}

Путь: Microsoft.PowerShell.Core \ FileSystem :: C: \ Users \ VMA \ Desktop \ VMADMIN \ Test Access: {System.Security.AccessControl.FileSystemAccessRule, System.Security.AccessControl. FileSystemAccessRule, System.Security.AccessControl.FileSystemAccessRule}

Путь: Microsoft.PowerShell.Core \ FileSystem :: C: \ Users \ vma \ Desktop \ VMADMIN \ test1 доступа: {System.Security.AccessControl.FileSystemAccessRule, System.Security.AccessControl.FileSystemAccessRule, System.Security.AccessControl.FileSystemAccessRule}

Путь: Microsoft.PowerShell.Core \ FileSystem :: C: \ Users \ VMA \ Desktop \ VMADMIN \ test2 доступа: {}

Путь: Microsoft.PowerShell.Core \ FileSystem :: C: \ Users \ VMA \ Desktop \ VMADMIN \ tEST3 Access: {System.Security.AccessControl.FileSystemAccessRule, System .Security.AccessControl.FileSystemAccessRule, System.Security.AccessControl.FileSystemAccessRule}

Answer 1

Это очень, очень грубо и вовсе не пуленепробиваемый, но, возможно, это шаблон для того, что вы ищете?

Sub PathAccessSplit() 

    Dim wsFrom, wsTo As Worksheet 
    Dim rowFrom, rowTo, lastRow As Integer 
    Dim cellVal As String 

    Set wsFrom = Sheets("Sheet1") 
    Set wsTo = Sheets("Sheet2") 

    lastRow = wsFrom.Cells(wsFrom.Rows.Count, "A").End(xlUp).Row 
    rowTo = 1 

    For rowFrom = 1 To lastRow 
    cellVal = wsFrom.Cells(rowFrom, 1).Text 

    If (Left(cellVal, 4) = "Path") Then 
     wsTo.Cells(rowTo, 1).Value = cellVal 
    ElseIf (Left(cellVal, 6) = "Access") Then 
     wsTo.Cells(rowTo, 2).Value = cellVal 
     rowTo = rowTo + 1 
    End If 


    Next rowFrom 

End Sub 

Это, конечно, предполагает, что исходные данные находятся в Sheet1, а выход будет перенаправлен на Sheet2. Достаточно легко переписать существующий лист, но это зависит от того, что вы хотите.