Ana içeriğe atla

Excel'de birden çok hücreye metin dizeleri nasıl eklenir?

Birden çok hücreye belirli bir metin veya metin dizesi eklememiz gerekirse, bu metni kopyalayıp her hücreye tek tek yapıştırmak zahmetli ve zaman alıcı olacaktır. Aşağıdaki yöntemler, belirli bir metni birden çok hücreye rahat ve hızlı bir şekilde eklememize yardımcı olabilir.

ok mavi sağ balon VBA ile Excel'de birden çok hücreye belirli bir metin ekleyin

Bir VBA kullanmak işimizi kolaylaştırabilir ve kopyalayıp yapıştırmadan birden çok hücreye belirli metinler ekleyebilir.

1 Adım: Belirli metni ekleyeceğiniz hücreleri seçin.

Adım 2: tuşunu basılı tutun. ALT + F11 tuşları ve Uygulamalar için Microsoft Visual Basic penceresini açar.

Adım 3: Tıklayın Ekle >> modülve aşağıdaki makroyu Modül Penceresine yapıştırın.

Alt Add2Formula ()
' Yazı ekle

Seçimdeki Her c İçin
c. Etkinleştir
ActiveCell.FormulaR1C1 = "test -" & ActiveCell.Formula
Sonraki c

End Sub

Adım 4: tuşuna basın. F5 Bu makroyu çalıştırmak için anahtar.

not: Bu makro yalnızca Metin - her hücre metninin önünde. Başka metin veya dizeler eklemek isterseniz, lütfen değiştirin Metin - eklemek istediğiniz belirli metinle.

ok mavi sağ balon Kutools for Excel ile Excel'deki birden çok hücreye belirli metin ekleyin

Microsoft Excel'in genel kullanıcıları için VBA'ya aşina olmayabiliriz. Alternatif olarak, Kutools for ExcelMetin Ekle aracı, belirli metni veya dizeleri birden çok hücreye hızlı ve kolay bir şekilde eklememize yardımcı olabilir.

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Şimdi alın

Adım 1: Belirli metni ekleyeceğiniz hücreleri seçin.

Adım 2: Kutools > Metin Araçları > Yazı ekle…. Ekran görüntüsüne bakın:

3. Adım: Metin ekle iletişim kutusunda, Metin bölümüne belirli metni ve karakterleri girin.

Adım 4: belirli metni ekleyeceğiniz konumu işaretleyin. Pozisyon Bölüm. (Not: Metni belirli bir konuma eklemek istiyorsanız, lütfen kontrol edin Belirtmek ve konumu belirtin.) Ekran görüntüsüne bakın:

Adım 5: Tıklayın OK or Tamam.

The Metin ekle Kutools for Excel aracı, orijinal hücre metninden önce veya sonra herhangi bir belirli metin ve karakter eklememizi destekler. Dahası, orijinal hücre metinleri arasına belirli bir metin ekleyebiliriz. Hangi ayarları yaparsanız yapın, hücre değişikliklerini Önizleme bölümünde önizleyebilirsiniz.

İlgili Madde:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (4)
No ratings yet. Be the first to rate!
Anish
Anish
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.
Reply
0
0
Peter
Peter
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
Reply
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
i want to add one character in before and after . please help .. mail me
Reply
Report
0
0
cpk.adm@gmail.com
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
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations