Ինչպե՞ս փոխարինել ոչ դատարկ բջիջները Excel- ում հատուկ արժեքով:
Excel- ում մենք կարող ենք արագ և հեշտությամբ փոխարինել կամ լրացնել որոշակի արժեքով ընտրություն `սեղմելով Ctrl + Enter ստեղներ, բայց գիտե՞ք, թե ինչպես պարզապես ոչ դատարկ բջիջները փոխարինել ձեր ընտրած տիրույթի որոշակի արժեքով, որը պարունակում է ինչպես դատարկ բջիջներ, այնպես էլ արժեքային բջիջներ:
Փոխարինեք ոչ դատարկ բջիջները որոշակի արժեքով ՝ օգտագործելով «Գտիր և փոխարինիր» գործառույթը
Փոխարինեք ոչ դատարկ բջիջները որոշակի արժեքով ՝ օգտագործելով VBA կոդ
Փոխարինեք ոչ դատարկ բջիջները որոշակի արժեքով ՝ օգտագործելով «Գտիր և փոխարինիր» գործառույթը
Excel- ում «Գտիր և փոխարինիր» հատկությունը կարող է օգնել մեզ գտնել բոլոր ոչ դատարկ բջիջները և այնուհետև դրանք փոխարինել նշված արժեքով, ինչպես ցանկանում ես:
1, Ընտրեք տվյալների տիրույթը, որը ցանկանում եք փոխարինել միայն արժեքային բջիջները:
2, Եվ հետո սեղմեք Ctrl + H բացելու համար Գտնել եւ փոխարինել երկխոսության վանդակում, Գտնել եւ փոխարինել երկխոսություն, տակ Փոխարինել էջանիշը, տեսակը * է Գտեք ինչ դաշտը և մուտքագրեք ձեզ անհրաժեշտ արժեքը Փոխարինել տեքստային տուփ, տես նկարի նկարը.
3. Այնուհետեւ կտտացրեք Փոխարինեք բոլորը կոճակը և դուրս եկավ երկխոսություն, որը ձեզ կասեցնի փոխարինվող բջիջների քանակը, փակեք երկխոսությունները, ապա ընտրված տիրույթի բոլոր արժեքները փոխարինվեցին ձեր նշված տվյալներով, տե՛ս սքրինշոթեր.
 |
 |
 |
Փոխարինեք ոչ դատարկ բջիջները որոշակի արժեքով ՝ օգտագործելով VBA կոդ
Օգտագործելով հետևյալ VBA կոդը, կարող եք նաև միանգամից փոխարինել բոլոր տվյալների բջիջները ձեր անհրաժեշտ արժեքներին: Խնդրում եմ, արեք այսպես.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Փոխարինեք ոչ դատարկ բջիջները որոշակի արժեքով
Sub ReplaceNumbers()
'Update 20141111
Dim SRg As Range
Dim Rg As Range
Dim Str As Variant
On Error Resume Next
Set SRg = Application.Selection
Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
If Err <> 0 Then Exit Sub
Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
If Str = False Then Exit Sub
For Each Rg In SRg
If Rg <> "" Then Rg = Str
Next
End Sub
3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք մի տիրույթ, որը ցանկանում եք փոխարինել տվյալները, տես նկարի նկարը.
4. Այնուհետեւ կտտացրեք OKև մուտքագրեք ձեր որոշակի արժեքը հաջորդ հուշման վանդակում, տես նկարի նկարը.
5. Եվ այնուհետեւ կտտացրեք OK, ձեր ընտրած տիրույթի բոլոր արժեքները միանգամից փոխարինվել են որոշակի տվյալներով:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
