כיצד להחליף את כל התווים בטבלה בתווים אחרים
האם אתה יודע זאת? הנתונים שאתה מקבל מהשותפים העסקיים או לאחר ייבוא הנתונים מכילים תווים שגויים. זה יכול לקרות כי נקודה עשרונית מופיעה בכל מקום בו יש צורך בנקודה עשרונית. או שזה יכול לקרות שמופיעים קווים בין ספרות בודדות.
אתה יכול להשתמש בפקודה REPLACE כדי למצוא תווים אלה ולהחליף אותם בתווים אחרים. אך נדרש מאמץ רב אם ברצונך לבצע תהליך זה בתדירות גבוהה יותר. אתה חוסך זמן על ידי ביצוע המשימה באמצעות מאקרו. תוכל לקרוא למאקרו הזה שוב במהירות ובקלות באותו מצב בעתיד.
כדי לכלול את המאקרו בחוברת עבודה ריקה, פתח חוברת עבודה חדשה בכל גירסאות Excel באמצעות שילוב המקשים CTRL N. לאחר מכן לחץ על צירוף המקשים ALT F11 כדי להעלות את עורך VBA. שם בוחרים את הפקודה INSERT - MODULE. לאחר מכן הזן את המאקרו הבא:
החלף דמויות משנה ()
ב- Error Resume Next
עמום תא כטווח
עמום חיפוש כמחרוזת
עמום החלף כמחרוזת
SearchFor = "."
ReplaceBy = ","
עבור כל תא ב- ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
התא הבא
על שגיאה GoTo 0
סיום תת
המאקרו מחליף את הנקודה העשרונית בנקודה עשרונית בכל התאים המשמשים בגליון העבודה הפעיל. כדי לקרוא למאקרו, הפעל את גליון העבודה הרצוי, הקש על צירוף המקשים ALT F8 ובחר את מאקרו CHARACTER EXCHANGE.
כדי לשלוט על איזה תוכן מחפשים ומוחלפים, התאם את שני המשתנים SUCHENNACH ו- REPLACE BY במאקרו.
