Jak zmienić ogranicznik podczas wklejania kopii z Excela?


9

Chciałbym skopiować komórki z Excela i wkleić je do Notatnika, używając przecinka ,jako separatora, zamiast znaku tabulacji.

Czy jest jakiś sposób na zmianę separatora bez wykonywania operacji znajdowania i zastępowania w Notatniku lub zapisywania arkusza kalkulacyjnego jako CSV?


Zobacz moją odpowiedź w innym pytaniu: superuser.com/questions/206060/...
wilson,

@wilson Stefan prosi o zrobienie tego bez użycia Notatnika i użycie jako separatora czegoś innego niż tab
Rowland Shaw,

1
@RowlandShaw: Stefan powiedział „bez zastępowania w Notatniku”, a nie „bez Notatnika”.
Karan

Odpowiedzi:


5

Nie sądzę, aby można było zmienić domyślny znak ogranicznika (tj. Tab) podczas kopiowania tekstu do schowka z Excela. Możesz jednak utworzyć makro, aby osiągnąć pożądany rezultat.

  1. Utwórz makro o nazwie coś takiego jak CopySelectedCells i opcjonalnie przypisz skrót klawiaturowy, abyś mógł go szybko wywołać ( na przykład przypisałem Ctrl+ Shift+ C):

    1

  2. W głównym oknie dialogowym Makro pokazanym powyżej kliknij przycisk Edytuj , aby otworzyć edytor VBA.

  3. Przejdź do Tools menu / Referencesi kliknij przycisk Przeglądaj .

  4. Dodaj system Windows \ System32 \ FM20.dll :

    2)

  5. Wybierz opcję Microsoft Objects 2.0 Object Library dodaną teraz do listy dostępnych referencji :

    3)

  6. Edytuj kod makra, aby wyglądał następująco:

    Sub CopySelectedCells()
        Dim str As String
        For Each rangeRow In Selection.Rows
            For Each rangeCol In rangeRow.Cells
                str = str & rangeCol.Value & ","
            Next
            str = Left(str, Len(str) - 1) & vbCrLf
        Next
    
        With New DataObject
            .SetText str
            .PutInClipboard
        End With
    End Sub
    
  7. Zamknij Edytor VBA, wybierz zakres komórek i wywołaj makro, a następnie wklej w Notatniku, aby zobaczyć wynik oddzielony przecinkami.


0

Połącz wymagane komórki jako ciąg w nieużywanej komórce z przecinkiem między nimi, skopiuj tylko tę nową komórkę i wklej do notatnika. Na przykład: = A1 i „,” i B1


Jeśli istnieją setki kolumn, concatenatemoże nie być dobrą opcją, ponieważ musisz ręcznie wybrać komórki i nie możesz przeciągnąć komórek, które chcesz połączyć.
Prasanna

-2

Możesz zastąpić wszystkie karty przecinkami w Notepad ++. Zaznacz cały tekst, naciśnij Ctrl+ Hi użyj \tdla tab. Pamiętaj, aby włączyć tryb wyszukiwania „Rozszerzone”.

Zamień karty na przecinki


2
Jak to jest lepsze w porównaniu do zastępowania kart w Notatniku?
Karan

1
To znacząca poprawa, ponieważ nie korzysta z notatnika :)
Bill K
Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.
Licensed under cc by-sa 3.0 with attribution required.