Excel 또는 배치-텍스트 수정 자동화 시도 (다수의 변경, 각각 하나 이상의 문자)

텍스트 줄이 많습니다. 텍스트 파일이나 Excel 스프레드 시트에 넣을 수 있습니다. 그들은 많은 변화가 필요합니다. 이전과 이후의 예는 다음과 같습니다.

Input:  I'm buying one!  Only $39 .....
Output: I'm buying one - Only USD 39

즉, HTML 코드 아포스트로피로 변환있어, 느낌표는 중복 공간이 밖으로 제거하고, 공간 하이픈되었다 $가되었다 USD, 및 종료 dots와 spaces아무 것도 남아 있지 때까지 제거되었다.

두 가지 다른 프로세스가 필요할 수 있습니다. 먼저 모든 발생에 대한 간단한 문자 대체와 여러 인스턴스를 계속 줄이는 반복 절차 (예 : 더 이상 두 공백 조합이 없을 때까지 두 공백을 하나로 변환).

이상적으로는 Excel 스프레드 시트 에서처럼 "이전"에 대한 하나의 셀과 "이후"에 대한 하나의 셀이있는 쉽게 편집 가능한 목록이 있습니다. 또는 최소한 작업의 간단한 대체 부분에 이상적입니다.

다양한 게시물에서 많은 매크로와 스크립트를 보았지만 대부분은 대상이 아니며 일부는 이해할 수 없습니다. 어떤 제안?

나는 종종 이런 것들을 위해 Microsoft Word를 사용합니다. 검색 및 바꾸기는 매우 강력하며 대체 처리를 위해 Excel보다 쉽다는 것을 알았습니다. 또한 NoteTab ( http://www.notetab.com/ ) 이라는 메모장 교체 앱을 사용합니다 . 무료 "라이트"버전이 있습니다. Notetab의 장점은 여러 파일을 쉽게 검색 할 수 있다는 것입니다.

모든 텍스트가 제공 한 샘플과 같은 경우 작동합니다. Excel에서 텍스트 파일을 열고 새 시트를 추가하여 대체 용어 표 (헤더 포함)를 작성하십시오. 첫 번째 열을 "이전"용어로, 두 번째 열을 "이후"용어로 읽도록 설정했습니다. 이 작업을 마친 후 Alt+ F11를 눌러 VBA 편집기 창을 엽니 다. 새 모듈을 삽입하고 다음 코드에 붙여 넣습니다.

Option Explicit
Sub cleanupText()

Dim allTxt() As Variant, sublist() As Variant
Dim i As Long, j As Long, k As Long, tdots As Integer

'Store data from sheets in arrays.
allTxt = Sheets(1).UsedRange.Value
sublist = Sheets(2).UsedRange.Offset(1, 0).Resize(Sheets(2).UsedRange.Rows.Count - 1, Sheets(2).UsedRange.Columns.Count).Value

For i = 1 To UBound(allTxt, 1)
    For j = 1 To UBound(allTxt, 2)
        'Loop through replacement terms and make replacements to data in array.
        For k = 1 To UBound(sublist, 1)
            allTxt(i, j) = Replace(allTxt(i, j), sublist(k, 1), sublist(k, 2))
        Next k
        allTxt(i, j) = Trim(allTxt(i, j))
        'Remove series of trailing periods.
        If Right(allTxt(i, j), 1) = "." Then
            tdots = 1
        Else
            tdots = 0
        End If
        Do While tdots = 1
            allTxt(i, j) = Left(allTxt(i, j), Len(allTxt(i, j)) - 1)
            If Right(allTxt(i, j), 1) = "." Then
                tdots = 1
            Else
                tdots = 0
            End If
        Loop
        allTxt(i, j) = Trim(allTxt(i, j))
    Next j
Next i
'Print cleaned up results in array onto sheet.
ActiveSheet.UsedRange.Value = allTxt
End Sub

코드를 실행 한 다음 파일을 텍스트로 저장하십시오.

http://www.sobolsoft.com/excelremove/

이것은 원하는 것을 정확하게 수행하는 멋진 애드온 (Excel 용)입니다. 작성 시점에 30 달러의 비용이 소요되므로 수시로 또는 지속적으로 많이 사용하는 것이 좋지만, 이것이 한 번만 사용하는 경우 가치가 없을 수 있습니다.

사용자가 선택한 문자 제거 / 바꾸기를 선택하면 작동합니다. 바꾸기를 선택하고 바꿀 문자를 말한 다음 무엇을 말하고 붐으로 바꿀 수 있습니다. 선택한 모든 셀을 통과하여 변경합니다. 공간을 추가하여 물건을 깨끗하게 만들 수도 있습니다.