Bagaimana cara saya hanya menyimpan baris teks pertama dalam sel multi-baris?

Saya memiliki ribuan sel yang berisi tiga baris di setiap sel. Saya hanya ingin mempertahankan baris pertama dan membuang sisanya. Misalnya, saya hanya ingin mempertahankan kalimat "Saya harus makan untuk hidup".

Sel A1

I need to eat to live.
I live to eat.
I love to eat and live.

Saya harap penjelasan saya masuk akal :)

Terima kasih.

microsoft-excel

— Nazrul 3000
sumber

Saya baru sadar contohnya ditampilkan sebagai satu struktur garis.

— Nazrul 3000

Bayangkan setiap kalimat dipisahkan menjadi baris. Saya pikir format tidak memungkinkan saya untuk membuatnya terlihat seperti saya memiliki tiga baris / baris.

— Nazrul 3000

Menurut baris, maksud Anda garis terputus di dalam sel?

— PeterH

Ya, line break adalah kata yang saya cari PeterH.

— Nazrul 3000

Jawaban:

Buat kolom pembantu, dan gunakan rumus di bawah ini di baris atas:

=TRIM(LEFT(A1,FIND(CHAR(10),A1)))

Kemudian seret ini ke bawah seluruh kolom.

Salin semua kolom pembantu, dan rekatkan nilainya. Anda kemudian dapat menghapus kolom A.

Ini bekerja dengan menemukan CHAR(10), yang merupakan jeda baris pertama, kemudian mengambil segalanya di sebelah kiri ini.

Membiarkan Anda hanya dengan baris pertama membentuk setiap Cell.

— PeterH
sumber

Terima kasih banyak Peter. Anda menyelamatkan hari pahlawan tanpa tanda jasa sayang. Semoga hari Anda menyenangkan :)

— Nazrul 3000

@ Nazrul3000 senang membantu, dan selamat datang di pengguna super! Anda dapat menerima jawaban sebagai benar dengan mengeklik panah di sebelah kiri jawabannya.

— PeterH

Bagaimana cara saya jika saya ingin mempertahankan jeda baris kedua (hapus yang pertama dan ketiga) dan juga mempertahankan jeda baris ketiga (hapus yang pertama dan kedua)?

— Nazrul 3000

@ Nazrul3000 Saya akan memperbarui jawabannya nanti untuk memasukkan cara melakukan ini juga

— PeterH

Selection.TextToColumns Destination:=Selection, _
                        DataType:=xlDelimited, _
                        Other:=True, _
                        OtherChar:= Chr(10), _
                        FieldInfo:=Array(Array(1, 1), _
                                         Array(2, 9), _
                                         Array(3, 9))

MEMPERBARUI

Sedikit lebih banyak informasi akan sangat membantu

Buat makro baru (editor VBA - Tambah modul - buat subrutin dengan beberapa nama, atau Makro - masukkan beberapa nama - Buat, lalu masukkan kode ini ke dalam badan makro). Lalu pilih sel, kolom, atau rentang yang hanya berisi 1 kolom, dengan sel yang perlu di atas pemotongan, dan jalankan makro yang dibuat.

Jika beberapa sel berisi lebih dari 3 baris teks, makro akan meminta Anda untuk mengganti konten sel lain - batalkan untuk melindungi data Anda.

Anda dapat dengan bebas mengedit teks dan meningkatkan baris maksimum yang mungkin dalam sel dengan menambahkan lebih banyak nilai ke FieldInfo.

— Akina
sumber

Sedikit informasi lebih lanjut akan membantu

— Albin

@Worthwelle Done.

— Akina