Makro yang membahagikan helaian Excel kepada 300 baris setiap helaian

Makro yang membahagikan helaian excel kepada satu helaian setiap 300 baris!

Sub Awam mySub()

Malapkan shS Sebagai Lembaran Kerja: Tetapkan shS = ActiveSheet 'Helaian data sumber, helaian aktif semasa

Malapkan rS&: rS = 1 'Jadual data sumber, mula membaca data dari baris ini

RC& malap: rC = 300 'Bilangan baris dibaca setiap kali

Dim rNew$: rNew = 1 'Buat jadual baharu dan tampal data ke dalam baris ini

Malapkan rZ&: rZ = shS.UsedRange.Row + shS.UsedRange.Rows.Count - 1

Malapkan Baru Sebagai Lembaran Kerja, nm$, n%, r&

r = rS

Lakukan Sementara r

n = n + 1

Tetapkan shNew = Lembaran Kerja.Tambah(selepas:=Helaian(Lembaran Kerja. Kiraan))

nm = "jadual" & rC & "__" & n

Hubungi ShNm(shNew, nm)

shS.Rows(r).Ubah saiz(rC).Salin shNew.Rows(rNew)

r = rC * n + rS

Gelung

MsgBox "ok"

Tamat Sub

Syarikat Awam ShNm(sh Sebagai Lembaran Kerja, nm Sebagai Varian)

Pada Ralat Sambung semula Seterusnya

100:

sh.Nama = nm

Jika Err.Nombor 0 Maka

Err.Jelas

nm = Application.InputBox( _

＂" " & nm & " " sudah wujud! " & Chr(10) & Chr(10) & "Sila masukkan nama jadual baharu: ", _

"Sila masukkan nama jadual baharu", nm & "_baru", _

Jenis:=2)

Jika nm = False Kemudian MsgBox "Input tidak betul, keluar dari program!": Tamat

GoTo 100

Tamat Jika

Tamat Sub

Cara menggunakan arahan makro untuk membahagikan urutan dalam EXCEL, contohnya, bahagikan PL10 120 kepada

Sub Macro6()

'

' Makro6 Makro

'

'

Selection.TextToColumns Destination:=Julat(＂A1＂), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

Koma bertitik:=Salah, Koma:=Salah, Ruang:=Salah, Lain-lain:=Benar, LainChar _

:=＂*＂, FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

Lajur(＂A:A＂).Pilih

Pilihan. Gantikan Apa:=＂PL＂, Penggantian:=＂＂, Lihat:=xlBahagian, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Lajur(＂C:D＂).Pilih

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Julat(＂C1＂).Pilih

ActiveCell.FormulaR1C1 = ＂=MIN(RC[-2],)＂

Julat(＂C1＂).Pilih

ActiveCell.FormulaR1C1 = "=MIN(RC[-2],RC[-1])"

Julat(＂D1＂).Pilih

ActiveCell.FormulaR1C1 = "=MAX(RC[-3],RC[-2])"

Julat(＂C1:D1＂).Pilih

Pilihan.Destinasi Isi Auto:=Julat(＂C1:D1000＂)

Julat(＂C:D＂).Pilih

Lajur(＂A:B＂).Pilih

Julat(＂B1＂).Aktifkan

Lajur(＂C:D＂).Pilih

Pilihan.Salin

Pilihan.Tampal Tampal Khas:=xlTampalNilai, Operasi:=xlTiada, Langkau Kosong _

:=False, Transpose:=False

Lajur(＂A:B＂).Pilih

Julat(＂B1＂).Aktifkan

Application.CutCopyMode = Palsu

Pilihan. Padam Shift:=xlToLeft

Lajur(＂A:B＂).Pilih

Pilihan. Gantikan Apa:=＂0＂, Gantian:=＂＂, Lihat:=xlSeluruh, _

_

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Tamat Sub

Nota: Apabila menggunakannya, pilih lajur A dahulu dan kemudian jalankan makro Lajur yang hendak dipecahkan mestilah dalam lajur A, dan dua lajur BC kosong, jika tidak, ia akan ditimpa (haha, masanya singkat, bukan. terutamanya pintar) dan bilangan baris tidak melebihi 1000 baris. Haha, jika tidak, ia akan menjadi agak perlahan, jadi julat ditetapkan pada 1000 baris. Adakah anda juga terlibat dalam struktur keluli? Haha juga

Cara menggunakan makro dalam EXCEL untuk memisahkan simbol automatik dengan A dan ini dalam jadual ke lajur belakang

Pilihan Eksplisit

Sub ujian()

Malapkan Sebagai Julat

Dim arr Sebagai Varian

Malapkan k Sebagai Integer

Untuk Setiap rng Dalam Pilihan

rng.Value = Ganti(rng.Value, ＂:＂, ＂/＂)

arr = Split(rng.Value, ＂/＂)

k = UBound(arr) + 1

rng.Ubah saiz(1, k) = arr

Padam arr

Seterusnya rng

End Sub Saya rasa anda tahu cara menampal kod, jadi saya tidak akan menerangkan butirannya Hanya tekan imej di bawah untuk menjalankan kod yang saya tulis untuk anda:

langkah-1

langkah-2

langkah-3

langkah-4

Cara membahagikan helaian excel dengan cepat kepada beberapa helaian excel sambil mengekalkan formula asal

Klik [Alat Pembangunan]-[Visual Basic] atau kekunci pintasan Alt+F11 untuk memasuki antara muka penyuntingan VBE.

Pilih untuk memasukkan modul baharu

Tampal kod berikut ke dalam modul:

Sub CFGZB()

Malapkan Julat saya Sebagai Varian

Malapkan MyArray

Malapkan tajukJulat Sebagai Julat

Tajuk malap Sebagai String

Malapkan lajurNum Sebagai Integer

myRange = Application.InputBox(prompt:="Sila pilih baris tajuk:", Taip:=8)

myArray = WorksheetFunction.Transpose(myRange)

Set titleRange = Application.InputBox(prompt：="Sila pilih pengepala split, yang mestilah baris pertama dan menjadi sel, seperti: "Nama"", Taip:=8)

tajuk = julat tajuk.Nilai

Atas ialah kandungan terperinci Makro yang membahagikan helaian Excel kepada 300 baris setiap helaian. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!