Cara menukar berbilang baris dan lajur data dalam EXCLE kepada satu lajur

Cara menukar berbilang baris dan lajur data dalam EXCLE menjadi satu lajur

Pilihan Asas 1

Julat sub sel kecuali ruang()

Malapkan Julat As saya, my1(), c Julat Sebagai

Malapkan p Selagi

Malapkan i Selagi

Set my = Application.InputBox(Prompt:="Gunakan tetikus untuk memilih julat sel", Taip:=8)

p = my.Count

i = 1

Malapkan semula saya1(p, 1)

Untuk Setiap c Dalam saya

Jika c.Nilai ＂＂ Kemudian

my1(i, 1) = c.Nilai

i = i + 1

Tamat Jika

Seterusnya c

Set my = Application.InputBox(Prompt:="Gunakan tetikus untuk memilih sel pertama untuk output", Taip:=8)

Application.ScreenUpdating = Palsu

Jika i = 1 Maka

my = my1

Lain

Julat(my, my.Offset(i - 2, 0)) = my1

Tamat Jika

Application.ScreenUpdating = Benar

MsgBox "Selesai."

Tamat Sub

Kod ini boleh mencapai apa yang anda mahukan.

Rujukan operasi

Cara menggunakan excel untuk menyusun data dalam berbilang baris dan lajur ke dalam satu lajur

Anda boleh merujuk kepada soalan "Bantuan: Adakah terdapat cara untuk menukar baris kepada lajur secara kelompok" yang saya jawab semalam dalam ""

Iaitu, tukar 3 baris teratas kepada 2 lajur bawah, saya tidak tahu sama ada ini maksudnya!

1 Masukkan formula dalam sel A10:

=OFFSET($A$1,INT((ROW(A1)-1)/10),MOD(ROW(A1)-1,10))

Salin dan lepaskan

2 Masukkan formula dalam sel B10:

=IF(OFFSET($A$1,INT((ROW(B1)-1)/10),MOD(ROW(B1)+9,10)+1)=＂＂,＂＂,OFFSET($A$1 ,INT((ROW(B1)-1)/10),MOD(ROW(B1)+9,10)+1))

Salin dan lepaskan

3 Pilih kawasan A10:B39, klik kanan untuk menyalin - klik kanan sekali lagi - Tampal Khas - Nilai

Kawasan data A10:B39 terbentuk, semua formula hilang, dan semua sel menjadi data.

4 Isih dan padam baris dengan ruang dalam lajur B. Itu sahaja.

Cara menukar berbilang baris dan lajur kepada satu lajur data dalam Excel

E2=JIKA(ROW(A1)>COUNTA($A$2:$D$9),"＂,TIDAK LANGSUNG(TEKS(KECIL(JIKA($A$2:$D$9＂",ROW($A$2:$D) $9)*100+KOLUM($A$2:$D$9),99^9),ROW(A1)),"r0c00"),))

F2=IF(ROW(A1)>COUNTA($A$2:$D$9),＂＂,INDEX($A$1:$D$9,MOD(KECIL(IF($A$2:$D$9＂＂), ROW($A$2:$D$9)/100+COLUMN($A$2:$D$9),99^9),ROW(A1)),1)*100,INT(KECIL(IF($A$2: $D$9＂＂,ROW($A$2:$D$9)/100+COLUMN($A$2:$D$9),99^9),ROW(A1))))

Salin formula tatasusunan ke bawah [Formula tatasusunan, selepas memasukkan formula, letakkan kursor dalam bar edit formula dan tekan CTRL+SHIFT+Enter untuk menjadikan formula tatasusunan berkesan]

Atas ialah kandungan terperinci Cara menukar berbilang baris dan lajur data dalam EXCLE kepada satu lajur. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!