Cara mengekstrak data lajur tertentu daripada berbilang fail excel kira-kira 200 dan meringkaskannya ke dalam fail baharu

Cara mengekstrak lajur tertentu daripada 200 atau lebih fail excel dan meringkaskannya menjadi yang baharu

Selepas menjalankan excel, tahan alt dan tekan f11, i, m dalam urutan

Tampal kod di bawah, buat pengubahsuaian yang diperlukan, dan tekan f5 untuk mendapatkan hasil ringkasan dalam lembaran kerja semasa.

Sub ujian()

c = Tatasusunan(1, 3, 5, 7, 8)

p = "d: direktori tempat fail ringkasan terletak" 'Ubah suai berdasarkan situasi sebenar Berhati-hati agar tidak terlepas

yang terakhir

f = Dir(p & "*.xlsx")

Set ns = ActiveSheet

Lakukan Sehingga f = ＂＂

Set wb = Buku Kerja.Buka(p & f)

Untuk i = 0 Hingga 4

n = n + 1

ns.Sel(2, n).Ubah saiz(144).Nilai = wb.Helaian(＂Bilik 1＂).Sel(2, c).Ubah saiz(144).Nilai

Seterusnya

wb.Tutup Salah

f = Dir

Gelung

Tamat Sub

Ekstrak data daripada berbilang jadual excel dalam format yang sama

Pemilik, saya fikir apa yang anda lakukan boleh dilaksanakan. Para sami tidak berani berbohong, dan saya tidak berani berbohong walaupun saya tidak menjadi seorang sami!

Jika anda tidak mahu melepaskan peluang ini, saya ingin mencubanya, sila HI dan tinggalkan mesej.

Jawapan: lxlzmh2002 - Ahli Sihir Hebat Tahap 8 2009-8-19 04:40

================================================ === =========================

Pemilik, hari ini saya membantu seseorang menulis program VBA untuk menggabungkan berbilang jadual. Saya tiba-tiba teringat bahawa saya telah melihat siaran yang serupa, jadi saya menemui siaran anda dan akan menjawabnya semula:

Kod VBA adalah seperti berikut:

Malapkan sht Sebagai Lembaran Kerja

Malapkan rs Selagi, js Selagi, ds Selagi

Malapkan i Sebagai Integer

Pada Ralat Sambung semula Seterusnya

Set sht = Helaian ("Ringkasan")

Jika Err.Nombor = 0 Maka

Helaian ("Ringkasan").Pilih

ActiveSheet.Julat(＂A1＂).CurrentRegion.ClearContents

Lain

Helaian.Tambah sebelum:=Helaian(1)

ActiveSheet.Name = "Ringkasan"

Tamat Jika

Helaian(2).Julat(＂1:1＂).Salin Helaian（＂Ringkasan＂）.Julat(＂A1＂)

Untuk i = 2 Ke Helaian.Count

ds = Helaian("Ringkasan").Julat("A65536").Tamat(xlUp).Baris + 1

rs = Helaian(i).Julat(＂A65536＂).Tamat(xlUp).Baris

js = Helaian(i).Julat(＂A1＂).Tamat(xlKe Kanan).Lajur

Dengan Cadar(i)

.Pilih

.Julat(Sel(2, 1), Sel(rs, js)).Salin Helaian("Ringkasan").Sel(ds, 1)

Tamat Dengan

Seterusnya

Helaian ("Ringkasan").Pilih

Kod di atas digunakan seperti berikut:

Rakam makro: Menu "Alat"->Makro->Rekod Makro)-->Namakan makro dalam medan "Nama Makro"->Tetapkan kekunci pintasan, masukkan huruf di bawah "Kekunci Pintasan"-->Mulakan rakaman selepas pengesahan Makro.

Edit makro: Selepas memulakan rakaman, anda boleh terus menekan kekunci henti, dan kemudian mengedit makro (Tools->Macro->Macro (M)->Pilih makro yang baru anda buat->Klik butang "Edit" pada kanan-->Masukkan Antara Muka penyuntingan makro --> Padam semua kandungan antara Sub XXX dan Sub Akhir --> Kemudian tampal kod program di atas --> Tekan butang "Simpan" pada bar alat --> menu "Fail" -- > Tutup dan kembali ke MicorSoft Excel

Laksanakan makro: Tekan kekunci pintasan yang baru anda tetapkan (Ctrl+huruf itu), atau pilih nama makro melalui menu "Alat" --> Makro --> Makro (M) --> pada tetingkap, dan tekan Butang "Laksanakan" untuk melaksanakan makro .

================================================ === ==================

Penerangan fungsi kod VBA ini:

1. Selepas melaksanakan kod VBA, program akan menambah lembaran kerja bernama "Ringkasan".

2 Gunakan baris pertama sheet1 (tidak masuk akal untuk memanggilnya sheet1, program akan mengetahui namanya dengan sendirinya) sebagai baris pertama jadual "ringkasan".

3 Kemudian tambahkan semua baris dan lajur bermula dari baris kedua dalam lembaran kerja kecuali jadual "Ringkasan" ke jadual "Ringkasan" dengan cara tambahan (baris pertama biasanya dianggap sebagai tajuk)

4. Proses penambahan adalah sama dengan menyalin dan menampal, tetapi ia lebih cepat daripada menyalin dan menampal secara manual Ia boleh dikatakan selesai dalam sekejap. Dan jika anda menggunakan kekunci pintasan untuk melaksanakannya sekali, semua lembaran kerja akan diringkaskan sekali.

Anda akan tahu sama ada ia berkesan atau tidak sebaik sahaja anda mencubanya. Jika anda mempunyai sebarang soalan tentang penggunaan kod ini, sila Hai saya~~~~~

Atas ialah kandungan terperinci Cara mengekstrak data lajur tertentu daripada berbilang fail excel kira-kira 200 dan meringkaskannya ke dalam fail baharu. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!