Ինչպե՞ս գտնել և փոխարինել բոլոր դատարկ բջիջները Excel- ում որոշակի համարով կամ տեքստով:

Մի շարք բջիջների համար, որոնք բնակեցված են որոշ դատարկ բջիջներով, գուցե անհրաժեշտ լինի գտնել այս դատարկ բջիջները և դրանք փոխարինել որոշակի բովանդակությամբ: Այս հոդվածում մենք ձեզ ենք տրամադրում երեք մեթոդ:

Գտեք և փոխարինեք բոլոր դատարկ բջիջները «Գտիր և փոխարինիր» գործառույթով
Գտեք և փոխարինեք բոլոր դատարկ բջիջները VBA կոդով
Excel- ի համար Kutools- ով հեշտությամբ լրացրեք բոլոր դատարկ բջիջները մի տիրույթում

Գտեք և փոխարինեք բոլոր դատարկ բջիջները «Գտիր և փոխարինիր» գործառույթով

Դուք կարող եք օգտագործել այն Գտնել եւ փոխարինել գործառույթը `Excel- ում բոլոր դատարկ բջիջները որոշակի բովանդակությամբ փոխարինելու համար: Խնդրում եմ, արեք հետևյալ կերպ.

1. Ընտրեք դատարկ բջիջներով ընդգրկույթը, որը դուք պետք է փոխարինեք որոշակի բովանդակությամբ, ապա սեղմեք Ctrl + H ստեղները միաժամանակ ՝ «Գտիր և փոխարինիր» երկխոսության պատուհանը բացելու համար:

2. Պատուհանման մեջ Գտնել եւ փոխարինել երկխոսության տուփ, տակ Փոխարինել ներդիր, պահիր Գտեք ինչ տուփը դատարկ է, մուտքագրեք որոշակի տեքստ, որը ցանկանում եք փոխարինել դատարկ բջիջները Փոխարինել տուփը և վերջապես կտտացրեք այն Փոխարինեք բոլորը կոճակ Տեսեք,

3. Սեղմեք OK կոճակը հետևյալ երկխոսության դաշտում:

Այնուհետեւ ընտրված տիրույթում գտնվող բոլոր դատարկ բջիջները փոխարինվում են որոշակի բովանդակությամբ:

Գտեք և փոխարինեք բոլոր դատարկ բջիջները VBA կոդով

Կարող եք նաև կիրառել VBA մեթոդը ՝ բոլոր դատարկ բջիջները որոշակի պարունակությամբ փոխարինելու միջակայքում: Խնդրում եմ, արեք հետևյալ կերպ.

1. Սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic կիրառման համար պատուհան.

2. Մեջ Microsoft Visual Basic կիրառման համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա VBA կոդի տակ պատճենեք և կպցրեք Մոդուլի պատուհանում:

VBA կոդ. Փոխարինեք դատարկ բջիջները որոշակի բովանդակությամբ

Sub Replace_Blanks()
	Dim xStr As String
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg  = xRg.SpecialCells(xlBlanks)
	If (Err <> 0) Or (xRg Is Nothing) Then
		MsgBox "No blank cells found", , "Kutools for Excel"
		Exit Sub
		End If
		xStr = Application.InputBox("Replace blank cells with what?", "Kutools for Excel")
		xUpdate = Application.ScreenUpdating
		Application.ScreenUpdating = False
		For Each xCell In xRg
			xCell.Formula = xStr
		Next
		Application.ScreenUpdating = xUpdate
	End Sub

3. Սեղմեք F5 ծածկագիրը գործելու համար: Մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ընտրեք դատարկ բջիջներով ընդգրկույթը, որը դուք պետք է գտնեք և փոխարինեք, ապա կտտացրեք այն OK կոճակը:

4. Մեկ այլում Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, մուտքագրեք որոշակի բովանդակություն տեքստային տուփի մեջ և կտտացրեք այն OK կոճակ Տեսեք,

Դրանից հետո բոլոր դատարկ բջիջները փոխարինվում են որոշակի տեքստով անմիջապես, ինչպես վերը նշված էիք:

ՆշումԵթե ​​ընտրված տիրույթը չի պարունակում դատարկ բջիջներ, դուք կստանաք հետևյալ երկխոսության տուփը:

Excel- ի համար Kutools- ով հեշտությամբ լրացրեք բոլոր դատարկ բջիջները մի տիրույթում

The Լրացրեք դատարկ բջիջները օգտակարությունը Excel- ի համար նախատեսված գործիքներ օգնում է հեշտությամբ լրացնել բոլոր դատարկ բջիջները որոշակի բովանդակությամբ: Խնդրում եմ, արեք հետևյալ կերպ.

1. Ընտրեք դատարկ բջիջներով ընդգրկույթը, որը դուք պետք է լրացնեք որոշակի բովանդակությամբ, ապա կտտացրեք Կուտոլս > Տեղադրել > Լրացրեք դատարկ բջիջները.

2. Մեջ Լրացրեք դատարկ բջիջները երկխոսության տուփ, ստուգեք Հաստատուն արժեք տարբերակը Լրացրեք բաժնում, և ապա մուտքագրեք որոշակի բովանդակություն մեջ Լրացված արժեք տուփը, վերջապես կտտացրեք OK կոճակը:

Դրանից հետո ընտրված տիրույթում գտնվող բոլոր դատարկ բջիջները լցվում են բովանդակությամբ, ինչպես ցույց է տրված ստորև նկարված նկարում:

ՆշումԱյս օգտակար ծառայության միջոցով կարող եք նաև լրացնել դատարկ բջիջներ ՝ հիմնվելով արժեքների վրա, և բացթողումները լրացնել գծային արժեքներով: