Hvernig á að þykkni texta byggð á leturgerð úr reit í Excel?

Ef þú ert með gagnalista með rauðum texta í hvern klefi í Excel eins og sýnt er sem hér að neðan skjámynd, og veistu hvernig á að draga aðeins rauða textann? Nú mun ég kynna fljótlegan hátt til að leysa þrautina sem útdráttur texta byggist á leturlitum frá frumu í Excel.

Þykkni texta byggist á leturlitum frá hverjum klefi

Þykkni texta byggist á leturlitum frá hverjum klefi

Ótrúlegt! Nota Duglegur Tabs í Excel Eins og Króm, Firefox og Safari!

Í Excel er aðeins hægt að nota skilgreind aðgerð til að draga textann út úr leturlitum.

1. Ýttu á Alt + F11 lyklar saman til að opna Microsoft Visual Basic for Applications gluggann.

2. smellur Setja > Mát og afritaðu VBA-númerið sem fylgir með því að smella á gluggann.

VBA: Útdráttur texti byggist á leturgerð

Function GetColorText(pRange As Range) As String
	'Updateby20141105
	Dim xOut As String
	Dim xValue As String
	Dim i As Long
	xValue = pRange.Text

	For i = 1 To VBA.Len(xValue)

		If pRange.Characters(i, 1).Font.Color = vbRed Then
			xOut = xOut & VBA.Mid(xValue, i, 1)
		End If

	Next

	GetColorText = xOut
End Function

3. Þá er hægt að vista og loka glugganum og veldu auða reit við hliðina á gagnalistanum, sláðu inn þessa formúlu = GetColorText (A1) (A1 gefur til kynna klefann sem þú vilt draga úr texta úr), ýttu á Sláðu inn takkann til að fá nauðsynlegan texta, dragðu þá sjálfvirkt handfang til að fylla formúluna í það bil sem þú vilt.

Nú geturðu séð allt rautt texta er dregið út.

Ábending: Í ofangreindum VBA kóða, ef þú þarft að þykkni svarta texta úr frumum, getur þú breytt litamerki Litur = vbRed til Litur = vbBlack.

Hlutfallslegar greinar:

• Eyddu aðeins djörf texta í Excel

• Útdráttur aukastaf gildi í Excel

• Taktu mið af nafninu í Excel

Ráðlögð framleiðni verkfæri

Office flipi

Komdu með handan flipa í Excel og önnur Office hugbúnaður, eins og Króm, Firefox og nýjan Internet Explorer.

Kutools fyrir Excel