كيفية البحث عن النص واستبداله ثم الحفاظ على التنسيق في Excel؟
البحث عن واستبدال الاحتفاظ بالتنسيق برمز ماكرو
البحث عن واستبدال الاحتفاظ بالتنسيق برمز ماكرو
لا توجد طرق أخرى ولكن تعليمات الماكرو يمكن أن تساعدك في البحث عن النص واستبداله والحفاظ على التنسيق.
1. صحافة ALT + F11 مفاتيح لفتح Microsoft Visual Basic للتطبيق نافذة.
2. انقر إدراج > وحدة، والصق الكود أدناه في البرنامج النصي.
فبا: البحث عن واستبدال الاحتفاظ بالتنسيق
Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
'UpdatebyExtendoffice20160711
Dim I As Long
Dim xLenFind As Long
Dim xLenRep As Long
Dim K As Long
Dim xValue As String
Dim M As Long
Dim xCell As Range
xLenFind = Len(FindText)
xLenRep = Len(ReplaceText)
If Not MatchCase Then M = 1
For Each xCell In Rng
If VarType(xCell) = vbString Then
xValue = xCell.Value
K = 0
For I = 1 To Len(xValue)
If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
xCell.Characters(I + K, xLenFind).Insert ReplaceText
K = K + xLenRep - xLenFind
End If
Next
End If
Next
End Sub
Sub Test_CharactersReplace()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub
3. صحافة F5 المفتاح ، ينبثق مربع حوار لك لتحديد نطاق للعثور عليه واستبداله ، انظر لقطة الشاشة:
4. انقر فوق "موافق" ، ويتم استبدال السلسلة المحددة في الخلية المحددة بأخرى والاحتفاظ بالتنسيق.
معلومه- سرية: في الكود ، KK هي السلسلة التي تريد البحث عنها ، و كوتولس هي السلسلة التي تريد استبدالها ، يمكنك تغييرها حسب حاجتك.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!