Cara menarik data dari beberapa workbook di excel

Saya mencari ID lembar kerja Pertama dengan lembar MAster menggunakan rumus berikut =VLOOKUP[A2,'Ringkasan Pemesanan HYD770 Diurutkan'. $A$2. $A$1126,1,FALSE] di salah satu kolom pada Tabel 1. Namun menemukan ID yang tersedia di berbagai baris. Namun bersama dengan ID saya ingin kolom tertentu dari lembar Master untuk disalin ke Tabel 1 dan sebagai ganti '1' saya telah memberikan 29 sebagai data sel yang ingin saya ambil sebelum parameter FALSE dalam rumus di atas memberikan REF . Bagaimana cara mendapatkannya

kata Gaurav
24 Mei 2019 pukul 1. 25 sore

Saya mencoba menggabungkan data anggota tim saya menggunakan makro di bawah ini. Namun, tantangannya adalah, ini menarik nama kolom untuk pengguna yang belum memiliki data apa pun di spreadsheet mereka. Saya harus menghapus nama kolom secara manual. Apakah ada cara agar makro dapat melewati spreadsheet yang tidak memiliki data
Konsolidasi Sub Penjualan[]
'***************************************************
'Bagian kode ini membuka setiap file dan menyimpannya di tab Penjualan
Aplikasi. Pembaruan Layar = Salah
Jalur = "C. \Data Saya\Klien\Analis\"
Nama file = Dir[Path & "*. xls"]
Do While Filename ""
Buku kerja. Buka Nama File. =Jalur & Nama File, Hanya Baca. =Salah
Aplikasi. Masuk ke ActiveWorkbook. Spreadsheet["Penjualan"]. Sel[6, 5]
ActiveWorkbook. Menyimpan
Buku Kerja [Nama File]. Menutup
Nama file = Dir[]
Lingkaran
'***************************************************
Dim bookList As Workbook
Dim mergeObj Sebagai Objek, dirObj Sebagai Objek, filesObj Sebagai Objek, everyObj Sebagai Objek
Aplikasi. Pembaruan Layar = Salah
Setel mergeObj = CreateObject["Scripting. FileSystemObject"]

'ubah jalur folder file excel di sini
Atur dirObj = gabungObj. Getfolder["C. \Data Saya\Klien\Analis\"]
Atur filesObj = dirObj. File
Untuk Setiap everyObj Di filesObj
Atur bookList = Buku Kerja. Buka [setiapObj]

'ubah "A2" dengan referensi sel dari titik awal untuk setiap file di sini
'misalnya "B3. IV" untuk menggabungkan semua file mulai dari kolom B dan baris 3
'Jika Anda file menggunakan lebih dari kolom IV, ubah ke kolom terbaru
'Ubah juga kolom "A" pada "A65536" menjadi kolom yang sama dengan titik awal
Rentang["A2. IV" & Jangkauan["A65536"]. Akhir[xlUp]. Baris]. Salinan
Buku Kerja ini. Lembar Kerja["Penjualan_Konsolidasi"]. Mengaktifkan

'Jangan ubah kolom berikut. Ini bukan kolom yang sama seperti di atas
Rentang["A65536"]. Akhir[xlUp]. Offset[1, 0]. TempelSpesial
Aplikasi. CutCopyMode = Salah
Daftar buku. Menutup
Lanjut
Aplikasi. Pembaruan Layar = Benar
Akhir Sub

Ucap Chatura.
5 September 2018 pukul 4. 49 pagi

Sub Lembar Penggabungan[]

'Mendeklarasikan Variabel
Dim LastRow, ShtCnt Sebagai Integer
Dim ShtName Sebagai String
Redupkan NewSht Sebagai Lembar Kerja

'Menetapkan Nama Lembar dengan Input Pengguna
ShtName
ShtName = InputBox["Masukkan Nama Sheet yang ingin dibuat", "Gabung Lembar", "Lembar Induk"]

'Jumlah Total Lembar Kerja dalam buku kerja ini
ShtCnt = Lembar. Menghitung

'Menggunakan For Loop periksa apakah lembar kerja itu ada
Untuk i = 1 Ke ShtCnt
Jika Lembar[i]. Nama = ShtName Kemudian
MsgBox "Sheet sudah ada", , "Gabungkan Sheet"
GoTo ShtName
Berakhir jika
Selanjutnya saya

'Buat Lembar Baru
Lembar kerja. Menambahkan. Nama = ShtNama

'Menetapkan NewSht sebagai Lembar Saat Ini
Tetapkan NewSht = Lembar Aktif

'Memindahkan Lembar Kerja ke awal buku kerja ini
NewSht. Bergerak sebelumnya. =Lembar Kerja[1]

'Menyalin semua data ke Lembar Baru Menggunakan For Loop
Untuk i = 2 Ke ShtCnt + 1

'Jika i=2 Maka salin semua data dari lembar kedua termasuk header
Jika i = 2 Maka
Lembar[i]. Rentang Terpakai. Salin NewSht. Sel[1, 1]
Kalau tidak

'Jika i lebih besar dari 2 maka salin semua data tidak termasuk Header[1st Row]
Lembar[i]. Rentang Terpakai. Offset[1, 0]. Ubah Ukuran[Lembar[i]. Rentang Terpakai. Baris. Hitung - 1, Lembar[i]. Rentang Terpakai. Kolom. Menghitung]. Salin NewSht. Sel[Baris Terakhir + 1, 1]
Berakhir jika
LastRow = NewSht. Sel. Sel Khusus[xlCellTypeLastCell]. Baris
Selanjutnya saya

'Menampilkan Pesan setelah berhasil menyalin data
MsgBox "Data telah disalin ke " dan SurName, , "Merge Sheet"

Akhir Sub

Ucap Ozz.
22 Desember 2017 pukul 10. 37 pagi

Halo semuanya,

Pertama-tama saya harus memberi tahu bahwa saya tidak memiliki pengalaman dengan Makro [Kode VBA]. Namun yang saya butuhkan terkait dengan ini. Mungkin kalian bisa membantu saya dengan itu

Saya memiliki buku kerja dan dalam buku kerja ini ada 10 lembar kerja. 9 Lembar pertama memiliki urutan kolom judul yang sama dan di kolom ini ada nama, tanggal, persentase Status Proyek, komentar untuk Proyek dll. Seperti yang saya katakan kolom memiliki urutan yang sama hanya nama lembar kerja [untuk Tim yang berbeda di Organisasi] berbeda

Selain itu saya harus menggabungkan semua lembar kerja dan memilikinya di lembar lain yang disebut "Übersicht" [Ikhtisar]. Namun ada kolom yang berbeda di lembar dan itu antara "Nr. " dan kolom "Tema" [yang ada di A1 dan B1 di semua 9 Lembar] dan kolom berbeda ini disebut "Kategorie" [di A2 di lembar Übersicht-Overwiev]. Karena kolom ini antara Ini urutannya seperti ini "Nr. [A1], Kategorie [B1] dan Tema [C1]. ". Jadi kolom kategori ini [Kategorie] harus kosong kecuali ini semua Informasi harus digabungkan ke dalam lembar ini. Dan juga ketika ada perubahan atau pembaharuan di lembar kerja manapun, Informasi di lembar "Übersicht" [Tinjauan] perlu diperbarui dengan sendirinya. Bagaimana saya bisa melakukan ini?

P. S. Setiap lembar memiliki baris isi yang berbeda, ada yang 30, ada yang 13, ada yang 5 dll. Dan Tim yang bertanggung jawab atas Lembar dapat menambah atau menghapus beberapa baris [di setiap baris ada Informasi berbeda untuk Proyek berbeda]. Ini juga berarti jumlah baris dapat bertambah atau berkurang

Bagaimana cara menarik data secara otomatis dari beberapa buku kerja di Excel?

Bagaimana cara mengimpor data dari beberapa buku kerja menjadi satu?

Bisakah Excel secara otomatis menarik data dari buku kerja lain?

Bagaimana cara menarik sel yang sama dari beberapa buku kerja?