Ինչպե՞ս Excel- ում բջիջներից հեռացնել կամ ջնջել բոլոր տողային տողերը կամ նիշերը:
Այս հոդվածը խոսում է Excel- ի բազմաթիվ բջիջներից բոլոր տողային տեքստերը կամ նիշերը հեռացնելու մասին:
Հեռացրեք բոլոր տողային տեքստերը VBA կոդով բջիջներից
Հեռացրեք բոլոր տողային տեքստերը VBA կոդով բջիջներից
Ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ հեռացնել բջիջների բոլոր տեքստերը, որոնք նշվել են գծապատկերով: Խնդրում եմ, արեք հետևյալ կերպ.
1. Աշխատաթերթում պարունակում է տողային տողեր, որոնք դուք պետք է հեռացնեք, սեղմեք այն ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Ներդիր > Մոդուլներ, Դրանից հետո պատճենեք և կպցրեք ներքևում գտնվող VBA կոդի կոդի պատուհանում:
VBA կոդ. Հեռացնել բոլոր տողային տեքստերը բջիջներից
Sub DelStrikethroughText()
Dim xRg As Range, xCell As Range
Dim xStr As String
Dim I As Long
On Error Resume Next
Set xRg = Application.InputBox("Please select range:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = Fase
For Each xCell In xRg
If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
xCell.Value = ""
ElseIf Not IsNumeric(xCell.Value) Then
For I = 1 To Len(xCell)
With xCell.Characters(I, 1)
If Not .Font.Strikethrough Then
xStr = xStr & .Text
End If
End With
Next
xCell.Value = xStr
xStr = ""
End If
Next
Application.ScreenUpdating = True
End Sub
3. Սեղմեք F5 ստեղնը կամ սեղմել Վազում կոդ ՝ կոդն աշխատեցնելու համար: Պատուհանման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ընտրեք ընդգրկույթը, որը պարունակում է ձեր հեռացվող տողային տողերը և այնուհետև կտտացրեք այն OK կոճակ Տեսեք,
Այնուհետև բոլոր տեքստերը, որոնք նշված են գծանշմամբ, անմիջապես հանվում են բջիջներից, ինչպես ցույց է տրված նկարում:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս հեռացնել տեքստը Excel- ում որոշակի նիշից առաջ կամ հետո:
- Ինչպե՞ս Excel- ում հեռացնել անցանկալի տեքստը բջիջից:
- Ինչպե՞ս հեռացնել Excel- ում տեքստեր և թվեր պարունակող բջիջներից համարները:
- Ինչպե՞ս Excel- ում թվեր և տեքստեր պարունակող բջիջներից հեռացնել միայն տեքստը:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: