Ինչպե՞ս թեքել մասի տեքստը, երբ Excel- ում միաձուլվում է երկու սյունակ:
Excel- ի աշխատաթերթում, երկու բջիջների արժեքները բանաձևերով համակցելուց հետո, կարող եք գտնել, որ այն չի խստացնում տեքստի մասը համակցված բանաձևի բջիջում: Դա երբեմն կարող է զայրացնել, թե ինչպե՞ս կարող եք համարձակ մասերի տեքստերը Excel- ում երկու սյունակների միաձուլման ժամանակ:
VBA կոդով երկու սյունակներն իրար միացնելիս համարձակ մասի տեքստ
VBA կոդով երկու սյունակներն իրար միացնելիս համարձակ մասի տեքստ
Օրինակ, ես ունեմ երկու սյունակի տվյալներ, այժմ ես ուզում եմ այս երկու սյունակները միավորել մեկ սյունակում և ձևաչափել առաջին արժեքը համարձակ, ինչպես ցույց է տրված հետևյալ նկարը.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Bold մասի տեքստ երկու սյունակների միաձուլման ժամանակ.
Sub JoinCellsWithBoldFormatForFirstWord()
'Updateby Extendoffice 20160725
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "only two columns in the selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Set xRg = xRg.Resize(xRg.Rows, 3)
On Error Resume Next
For Each xCell In xRg.Columns(3).Cells
xCell = xRg.Cells(xCell.Row, 1) & " " & xRg.Cells(xCell.Row, 2)
xCell.Font.Bold = False
xCell.Characters(1, Len(xRg.Cells(xCell.Row, 1))).Font.FontStyle = "Bold"
Next
End Sub
3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք միավորել և թավշել: Տեսեք,
4. Եվ այնուհետեւ կտտացրեք OK կոճակը, և տողերի բոլոր երկու բառերը միասին միավորվել են տվյալների տիրույթից դուրս գտնվող բջիջների մեջ, և առաջին բառը նույնպես թեք է, տե՛ս նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: