Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk memasukkan baris secara automatik berdasarkan nilai sel dalam Excel?

doc-insert-row-based-on-value-1
Katakan anda mempunyai pelbagai data, dan anda ingin masukkan baris kosong secara automatik di atas atau di bawah nilai tertentu dalam Excel, sebagai contoh, baris penyisipan auto di bawah nilai sifar seperti tangkapan skrin di bawah. Dalam Excel, tidak ada cara langsung yang dapat menyelesaikan tugas ini, tetapi saya boleh memperkenalkan kod makro untuk anda memasukkan baris auto berdasarkan nilai tertentu dalam Excel.
Masukkan baris di bawah berdasarkan nilai sel dengan VBA

Masukkan baris di atas berdasarkan nilai sel dengan Kutools untuk Excel idea yang baik3

Pilih Sel / Baris / Lajur dengan satu atau dua kriteria dalam Excel

Sel Pilih Khusus untuk Kutools untuk Excel boleh cepat memilih semua sel atau baris atau lajur dalam julat berdasarkan satu kriteria atau dua kriteria. Klik untuk 60 hari percubaan percuma!
doc pilih sel tertentu 1
Kutools untuk Excel: dengan lebih daripada 300 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60.

Untuk memasukkan baris berdasarkan nilai sel dengan menjalankan VBA, sila lakukan seperti langkah di bawah:

formula Jangan sekali-kali perlu risau tentang formula panjang yang panjang dalam Excel lagi! Kutools untuk Excel's Teks Auto boleh menambah semua formula kepada kumpulan
sebagai teks auto, dan membebaskan otak anda! Klik di sini untuk mengetahui Teks Auto Klik di sini untuk mendapatkan percubaan percuma

1. Akhbar Alt + F11 kunci secara serentak, dan a Microsoft Visual Basic untuk Aplikasi tingkap keluar.

2. klik Memasukkan > Modul, kemudian tampal di bawah kod VBA untuk muncul Modul tingkap.

VBA: Masukkan baris di bawah berdasarkan nilai sel.

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3. klik F5 kunci atau yang Main butang, dialog timbul, dan pilih lajur mengandungi sifar. Lihat tangkapan skrin:
doc-insert-row-based-on-value-2

4. klik OK. Kemudian baris kosong akan dimasukkan di bawah nilai sifar.
doc-insert-row-based-on-value-3

Petua:

1. Jika anda mahu memasukkan baris berdasarkan nilai lain, anda boleh menukar 0 untuk apa-apa nilai yang anda mahu dalam VBA: Jika Rng.Value = "0" Kemudian.

2. Sekiranya anda mahu memasukkan baris di atas sifar atau nilai lain, anda boleh menggunakan kod vba di bawah.

VBA: Masukkan baris di atas nilai sifar:

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

doc-insert-row-based-on-value-4


Jika anda tidak biasa dengan VBA, anda boleh cuba Kutools untuk Excel's Pilih Sel Khusus utiliti, dan kemudian masukkan baris di atas.

Kutools untuk Excel, dengan lebih daripada 300 fungsi yang berguna, menjadikan pekerjaan anda lebih mudah.

Selepas memasang Kutools untuk Excel, sila lakukan seperti di bawah:(Muat turun Percuma Kutools untuk Excel Sekarang!)

1. Pilih senarai yang anda mahu cari sel khusus dari, dan klik Kutools > pilih > Pilih Sel Khusus. Lihat tangkapan skrin:
baris penyertaan dokumen berdasarkan nilai 9

2. Dalam dialog yang muncul, semak Seluruh baris pilihan, dan kemudian pilih bersamaan daripada Jenis khusus senarai, kemudian masukkan nilai yang anda ingin cari dalam kotak teks yang betul. Lihat tangkapan skrin:
baris penyertaan dokumen berdasarkan nilai 6

3. klik Ok, dan dialog timbul untuk mengingatkan anda bilangan baris yang dipilih, hanya tutupnya.

4. Letakkan kursor pada satu baris yang dipilih, dan klik kanan untuk memilih Memasukkan dari menu konteks. Lihat tangkapan skrin:
baris penyertaan dokumen berdasarkan nilai 7

Sekarang baris dimasukkan di atas berdasarkan nilai tertentu.
baris penyertaan dokumen berdasarkan nilai 8


Artikel relatif:

Melayari penyemakan & mengedit beberapa buku kerja Excel / Dokumen Word sebagai Firefox, Chrome, Internet Explore 10!

Anda mungkin terbiasa melihat beberapa halaman web di Firefox / Chrome / IE, dan beralih di antara mereka dengan mengklik tab yang sesuai dengan mudah. Di sini, Tab Office menyokong pemprosesan yang sama, yang membolehkan anda menyemak imbas buku kerja Excel atau dokumen Word dalam satu tetingkap Excel atau tetingkap Word, dan dengan mudah bertukar di antara mereka dengan mengklik tab mereka. Klik untuk percubaan 45 hari Tab Pejabat!

ot excel

Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    safa · 25 days ago
    Hello, this is very helpful. What if I wanted to add two lines below and I wanted to more values. For instance, I want to add two lines after value 26/04/2019 and then two lines after 03/04/2019, and list goes on. How do I keep adding to the vba? Sorry im still a beginner. Thanks in advance.
  • To post as a guest, your comment is unpublished.
    Gina · 6 months ago
    Hi, Thanks for this, however I have another scenario where I need to insert a cingle cell under the value that is not zero. Appreciate any suggestion.
  • To post as a guest, your comment is unpublished.
    Louis · 8 months ago
    Hi i am trying to use this code to enter a row when a the first 4 digits in a cell changes (if thats even possible)

    for example,
    2222A
    2222B
    2223K


    the line will be inserted after 2222B as the 3rd number is a 3 and not a 2

    Thanks guys!!
  • To post as a guest, your comment is unpublished.
    Hi · 1 years ago
    hi I just wanna ask how to add row if the codition is that add row should be done when a cell has a data already (It is for a excel workbook with a lot of sheets :) Thanks!
    • To post as a guest, your comment is unpublished.
      Sunny · 11 months ago
      maybe this vba code can help you. It will add rows if above row is not empty

      Sub helping()
      Dim count As Long
      For count = ActiveSheet.UsedRange.Rows.count To 1 Step -1
      If Information.IsEmpty(Cells(count, 1)) = False Then Rows(count + 1).Insert
      Next count
      End Sub
  • To post as a guest, your comment is unpublished.
    ermias · 1 years ago
    Here is my question and it is a very difficult one i guess.. is there a vba code that add a new row below a filtered column and copy just the first three cells into the added new row and continue doing so until the user stops hitting "enter" and unfilter the filtered cells?