Μετάβαση στο κύριο περιεχόμενο

Πώς να προσθέσετε συμβολοσειρές κειμένου σε πολλά κελιά στο Excel;

Εάν πρέπει να προσθέσουμε κάποιο συγκεκριμένο κείμενο ή συμβολοσειρές κειμένου σε πολλά κελιά, θα είναι δύσκολο και χρονοβόρο με την αντιγραφή αυτού του κειμένου και την επικόλληση σε κάθε κελί ένα προς ένα. Οι ακόλουθες μέθοδοι μπορούν να μας βοηθήσουν να προσθέσουμε συγκεκριμένο κείμενο σε πολλά κελιά εύκολα και γρήγορα.


βέλος μπλε δεξιά φούσκα Προσθέστε συγκεκριμένο κείμενο σε πολλά κελιά στο Excel με VBA

Η χρήση ενός VBA μπορεί να διευκολύνει την εργασία μας και να προσθέσει συγκεκριμένο κείμενο σε πολλά κελιά χωρίς αντιγραφή και επικόλληση.

Βήμα 1: Επιλέξτε τα κελιά στα οποία θα προσθέσετε το συγκεκριμένο κείμενο.

Βήμα 2: Κρατήστε πατημένο το ALT + F11 και ανοίγει το παράθυρο της Microsoft Visual Basic for Applications.

Βήμα 3: Κάντε κλικ στο κουμπί Κύριο θέμα >> Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο παράθυρο της ενότητας.

Υπο Add2Formula ()
' Προσθέστε κείμενο

Για κάθε γ στην επιλογή
γ. Ενεργοποιήστε
ActiveCell.FormulaR1C1 = "test -" & ActiveCell.Formula
Επόμενο γ

Sub End

Βήμα 4: Πατήστε το F5 κλειδί για την εκτέλεση αυτής της μακροεντολής.

Note: Αυτή η μακροεντολή μπορεί να προσθέσει μόνο το κείμενο - στο μπροστινό μέρος κάθε κελιού κειμένου. Εάν θέλετε να προσθέσετε άλλο κείμενο ή συμβολοσειρές, αντικαταστήστε το κείμενο - με το συγκεκριμένο κείμενο που θέλετε να προσθέσετε.


βέλος μπλε δεξιά φούσκα Προσθέστε συγκεκριμένο κείμενο σε πολλά κελιά στο Excel με το Kutools για Excel

Για τους κοινούς χρήστες του Microsoft Excel, ενδέχεται να μην γνωρίζουμε το VBA. Εναλλακτικά, το Kutools για ExcelΤο εργαλείο Προσθήκη κειμένου μπορεί να μας βοηθήσει να προσθέσουμε το συγκεκριμένο κείμενο ή συμβολοσειρές σε πολλά κελιά γρήγορα και εύκολα.

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα

Βήμα 1: Επιλέξτε τα κελιά στα οποία θα προσθέσετε το συγκεκριμένο κείμενο.

Βήμα 2: Κάντε κλικ στο Kutools > Εργαλεία κειμένου > Προσθέστε κείμενο…. Δείτε το στιγμιότυπο οθόνης:

Βήμα 3: Στο Προσθήκη κειμένου πλαίσιο διαλόγου, εισαγάγετε το συγκεκριμένο κείμενο και τους χαρακτήρες στην ενότητα Κείμενο.

Βήμα 4: ελέγξτε μια θέση όπου θα προσθέσετε το συγκεκριμένο κείμενο στο θέση Ενότητα. (Σημείωση: εάν θέλετε να εισαγάγετε το κείμενο σε καθορισμένη θέση, ελέγξτε Καθορίστε και καθορίστε τη θέση.) Δείτε το στιγμιότυπο οθόνης:

Βήμα 5: Κάντε κλικ στο κουμπί OK or Εφαρμογή.

Η Προσθήκη κειμένου Το εργαλείο του Kutools για Excel μας υποστηρίζει να προσθέσουμε οποιοδήποτε συγκεκριμένο κείμενο και χαρακτήρες πριν ή μετά το αρχικό κελί. Επιπλέον, μπορούμε να προσθέσουμε συγκεκριμένο κείμενο μεταξύ των αρχικών κειμένων κελιού. Ανεξάρτητα από τις ρυθμίσεις που έχετε ορίσει, μπορείτε να κάνετε προεπισκόπηση των αλλαγών στο κελί στην ενότητα Προεπισκόπηση.


Σχετικές άρθρο:

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to add multiple cells and compare with one cell ,such that the one cell compared to value is dynamically changing. For example sum of column and you are adding values in the column then sum is dynamically changing.

Thank you in Advance.
This comment was minimized by the moderator on the site
If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
This comment was minimized by the moderator on the site
i want to add one character in before and after . please help .. mail me
This comment was minimized by the moderator on the site
Private Sub CommandButton1_Click()
On Error GoTo errorhandler:
Dim objRange1 As Range
Dim wk As Workbook

'Set up the ranges


Set objRange1 = Range("A22:A51")


objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:="|"
Dim rn As String
Dim rn1 As String
Dim rn2 As String
Dim rep As String
Dim res As String
rep = "Do you want to copy Values?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
If res = vbYes Then

rn = InputBox(" Enter Range to Copy Circuit Id")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
MsgBox (" Circuit Id has Successfully Pasted")
rn1 = InputBox(" Enter Range to copy Order Reference")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox (" Order Reference has Successfully Pasted")
rn2 = InputBox(" Enter Range to copy Inventory Name")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox (" Inventory has Successfully Pasted")
Sheets("sheet1").Range("Z1:AM10").ClearContents
Sheets("sheet2").Activate
Else
MsgBox (" Thank You")
End If
errorhandler:
MsgBox ("you have clicked cancelled bitton")
Sheet1.Activate
End Sub


Private Sub CommandButton2_Click()
Sheet1.Range("A10:A32").ClearContents
End Sub







it is working , but i have to add text in one cell . please help me
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations