0

Excelを使用して複数の行を1つの行にマージしたいと思います。CONCATENATE関数を使用してこれをすでに実行しましたが、ファイルにいくつかのエントリがあるため、今回はプロセスを自動化する必要があります。CiscoCMEから抽出されたEphoneIP電話情報があり、各ephone情報は次のように一列に並んでいます。

ephone-1[0] Mac: TCP socket:[57] activeLine:0 whisperLine:0 REGISTERED in SCCP ver 20/17 max_streams=1
mediaActive:0 whisper_mediaActive:0 startMedia:0 offhook:0 ringing:0 reset:0 reset_sent:0 paging 0 debug:0 caps:8 
IP:---------- * 35419 6941  keepalive 54113 max_line 4 available_line 4
button 1: cw:1 ccw:(0 0) 
dn 1  number ------- CH1   IDLE         CH2   IDLE         shared 
Preferred Codec: g711ulaw 
Lpcor Type: none Username: ---- Password: ------ 


ephone-2[1] Mac:-------- TCP socket:[77] activeLine:0 whisperLine:0 REGISTERED in SCCP ver 20/17 max_streams=1
mediaActive:0 whisper_mediaActive:0 startMedia:0 offhook:0 ringing:0 reset:0 reset_sent:0 paging 0 debug:0 caps:8 
IP:------- * 35189 6941  keepalive 117528 max_line 4 available_line 4
button 1: cw:1 ccw:(0 0) 
 dn 2  number ------ CH1   IDLE         CH2   IDLE         shared 
Preferred Codec: g711ulaw 
Lpcor Type: none

各ephoneは、ファイル上の1つまたは2つの空の行で区切られています。約350のエントリがあり、プロセスを自動化したいと思います。このプロセスは、ephoneの各行を取得して単一の行にマージするようなものである必要があります。これにより、最終的に350のephoneの情報を含む350行が作成されます。

誰かがExcelでこれを作る方法を知っていますか？私は本当に助けていただければ幸いです。

よろしくお願いします

4

1 に答える 1

2

このコードはそれを実行し、統合し、余分な行を削除する必要があります

Sub ConsolidateRows_NoMatch()
'takes rows and consolidate one or many cells, based on one or many cells matching with above or below rows.

Dim lastRow As Long, i As Long, j As Long
Dim colMatch As Variant, colConcat As Variant

'turn off updates to speed up code execution
With application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
End With

lastRow = range("A" & Rows.Count).End(xlUp).Row 'get last row

For i = lastRow To 1 Step -1 'loop from last Row to one

    If Len(Cells(i, 1)) > 0 Then
        If Left(Cells(i, 1), 6) <> "ephone" Then
            Cells(i - 1, 1) = Cells(i - 1, 1) & Cells(i, 1)
        Else
            GoTo nxti:
        End If
    End If

    Rows(i).Delete
nxti:
Next

With application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
End With

End Sub
于 2012-10-15T15:49:16.330 に答える