Tambahkan data excel menggunakan vba

Question

Hai tim,

Table of Contents Show

Bisakah Anda menambahkan data di Excel?
Bagaimana cara menggabungkan beberapa file Excel menjadi satu VBA?
Bagaimana cara menambahkan data dari beberapa lembar ke satu lembar di Excel?

Saya harus menambahkan data untuk kolom tertentu dalam file xlsm. dari mana data berasal dari antrian

Struktur file terlampir

Mohon, sarankan bagaimana cara menambahkannya & langkah apa yang harus diikuti

jolivanes

Profesional

697.134Postingan1.309

Ulang. Makro untuk menambahkan data dari sheet1 ke sheet2

Seperti ini?

Kode

Sub Maybe()
    Sheets("Sheet1").Range("A2:G" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub

Apakah ada cara untuk mengambil data dari rentang lembar kerja atau tabel dan menambahkannya ke tabel yang sudah ada dalam model data excel?

1) tulis skrip VBA atau R untuk menambahkan data yang dipilih ke file CSV dan gunakan ini sebagai sumber untuk model data, atau

2) memuat data ke dalam database sql melalui siss atau cara lain. Tujuannya adalah memuat data ini dalam model data ke power bi untuk memperbarui dasbor.

Saya memiliki beberapa data di lembar kerja yang berbeda. Saya perlu menambahkan semua data ke dalam lembar kerja baru atau satu file master (buku kerja)

Dengan merekam makro saya bisa melakukannya sampai batas tertentu. (Saya telah meletakkan kode di bawah ini). Dalam kode ini saya telah mempertimbangkan 4 lembar untuk disalin ke buku kerja baru sebagai contoh

Tapi pahamilah bahwa masih ada yang kurang.

Bagaimana saya bisa memodifikasi kode untuk memeriksa jumlah lembar di buku kerja (karena jumlah lembar kerja di setiap file dapat bervariasi. )

R

RachelBrown

Anggota baru

BergabungJul 6, 2017Pesan11

7 Juli 2017

#1

Saya memiliki makro yang menambahkan data ke bagian bawah kolom, ini berfungsi pertama kali tetapi terus menempel di tempat berbeda di lembar kerja saya. Bisakah seseorang menemukan apa yang salah?

Kode

Dim lastRow As String
Range("D3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Notes").Select
    lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    ActiveSheet.Paste
    Application.CutCopyMode = False

_

Joe4

MrExcel MVP, Admin Muda

Bergabung 1 Agustus 2002Pesan66,469Versi Office

365

Peron

Windows

7 Juli 2017

#2

Anda memecahkan untuk lastRow, tetapi kemudian tidak menggunakan perhitungan itu dalam menentukan di mana akan menempelkan data Anda
Ke kolom mana Anda mencoba menempelkan data ini?
Jika kolom A, coba tambahkan baris ini di atas "ActiveSheet. Tempel" baris

Kode

Range("A" & lastRow).Activate

Scott T

Anggota terkenal

BergabungDec 14, 2016Messages2,635Office Version

365
2016

Peron

Windows

7 Juli 2017

#3

Ini menempel ke sel yang dipilih saat ini

Kode

ActiveSheet.Paste

Anda harus menentukan tempat untuk menempelkan misalnya

Kode

Cells(lastRow,1).paste

_

K

kvsrinivasamurthy

Anggota terkenal

BergabungNov 6, 2013Messages1,015

7 Juli 2017

#4

Ganti kode seperti di bawah ini

Kode

[COLOR=#333333]Dim lastRow As long[/COLOR]
    lastRow = Sheets("Notes").Cells(Rows.Count, "A").End(xlUp).Row + 1
    Range("D3").Select
    Range(Selection, Selection.End(xlDown)).Copy Sheets("Notes").Range("A" & lastRow)

R

RachelBrown

Anggota baru

BergabungJul 6, 2017Pesan11

7 Juli 2017

#5

Terima kasih atas bantuan Anda. Semua solusi Anda bekerja dengan baik

Joe4

MrExcel MVP, Admin Muda

Bergabung 1 Agustus 2002Pesan66,469Versi Office

365

Peron

Windows

7 Juli 2017

#7

Saya akhirnya memilih ini, tetapi sebaliknya. Aktifkan, saya menggunakan. Pilih
Klik untuk meluaskan

Salah satu akan bekerja. Mereka pada dasarnya melakukan hal yang sama

R

RachelBrown

Anggota baru

BergabungJul 6, 2017Pesan11

7 Juli 2017

#8

kata Joe4
Salah satu akan bekerja. Mereka pada dasarnya melakukan hal yang sama
Klik untuk meluaskan

Hm, saya mencoba. Aktifkan dulu dan itu menyebabkan kesalahan

Joe4

MrExcel MVP, Admin Muda

Bergabung 1 Agustus 2002Pesan66,469Versi Office

365

Peron

Windows

7 Juli 2017

#9

Aneh. Itu berhasil untuk saya
Lakukan saja apa pun yang cocok untuk Anda

Bisakah Anda menambahkan data di Excel?

Untuk melakukan penambahan perantara, pilih panah di samping perintah, lalu pilih Tambah Kueri sebagai Baru . Kotak dialog Tambahkan muncul. Tentukan jumlah tabel yang ingin Anda tambahkan. Pilih Dua tabel, lalu pilih tabel kedua di kotak daftar turun bawah untuk ditambahkan.

Bagaimana cara menggabungkan beberapa file Excel menjadi satu VBA?

Buka file Excel tempat Anda ingin menggabungkan lembar dari buku kerja lain dan lakukan hal berikut. .

Tekan Alt + F8 untuk membuka dialog Makro

Di bawah nama Makro, pilih MergeExcelFiles dan klik Jalankan

Jendela penjelajah standar akan terbuka, Anda memilih satu atau lebih buku kerja yang ingin Anda gabungkan, dan klik Buka

Bagaimana cara menambahkan data dari beberapa lembar ke satu lembar di Excel?

Pada tab Data, di bawah Alat, klik Konsolidasi. Dalam kotak Fungsi, klik fungsi yang ingin digunakan Excel untuk menggabungkan data. Di setiap lembar sumber, pilih data Anda, lalu klik Tambahkan. Jalur file dimasukkan di Semua referensi

kode excel