Excel - Makro untuk melakukan pengiraan dan menyimpan data pada helaian lain
Isu
Saya mempunyai satu siri pelanggan nombor akaun dalam lajur A. Senarai ini adalah saiz berubah.
Keperluan saya ialah:
- Saya telah membahagikan senarai ke dalam 40 muka surat.
- Saya mengambil 40 akaun dalam lajur A
- Saya menyalin dan saya berpegang kepada lembaran baru 1.
- Saya mengikuti 40 dan saya memasukkannya ke dalam helaian 2. Dan sebagainya ... sehingga senarai terakhir. Bolehkah anda menolong saya, kerana buku VBA buat masa sekarang adalah bahasa Cina untuk saya? Terima kasih!
Penyelesaian
Contoh bagaimana ia sepatutnya:
Sub exploding () Dim sh As Worksheet, numf As Long, baris As Long Set sh = ActiveSheet Application.ScreenUpdating = False numf = 1: = 1 Untuk lig lig sh = 1 To. [A65536]. Akhir (xlUp) Worksheets.Add after: = Worksheets (Worksheets.Count) ActiveSheet.Name = "Bahagian" & numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig, 1). Ubah saiz (40, 1). Value = lig lig + numf 39 + 1 = numf lig sh.Activate Application Next.ScreenUpdating = True End Sub
Anda pilih kunci yang dipersoalkan sebelum menjalankan makro.
- Jika dia mempunyai nama ditentukan menggantikan:
- Tetapkan sh = ActiveSheet
- oleh:
- Tetapkan sh = Worksheets ("name_ofthe_sheet)