Rumah >tutorial komputer >pengetahuan komputer >Cara menukar berbilang baris dan lajur data dalam EXCLE kepada 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
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.
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!