Excel'de metin dizesini büyük/küçük harfe göre nasıl hızlıca bölebilirim?
Excel’de metinleri genellikle “Metni Sütunlara Dönüştür” işleviyle Belirli Genişlik veya bir ayırıcıya göre böleriz; peki ya metinleri büyük ve küçük harfe göre bölmeyi denediniz mi? Örneğin, bir veri listeniz varsa ve bu metinleri büyük/küçük harf durumuna göre iki ayrı sütuna ayırmak istiyorsanız—bir sütunda yalnızca küçük harf içeren dizeler, diğerinde ise yalnızca büyük harf içeren dizeler olsun (aşağıdaki ekran görüntüsünde gösterildiği gibi)—“Metni Sütunlara Dönüştür” işlevi bu işlemi desteklemez. Ancak Excel’de metin dizesini büyük/küçük harfe göre hızlıca bölmek için size pratik bir hile gösterebilirim.
Metni VBA ile büyük/küçük harfe göre bölme
Metni ayırıcıya göre satırlara/sütunlara bölme ile Kutools for Excel
Metni VBA ile büyük/küçük harfe göre bölme
Excel'de yalnızca küçük ve büyük harfe göre dizeyi hızlıca bölmek için bir makro kodu mevcuttur.
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Tıklayın Ekle > Modül, ardından aşağıdaki kodu boş Modül betiğine yapıştırın.
VBA: Metni büyük/küçük harfe göre bölme.
Sub CamelCase()
'UpdatebyExtendoffice20160711
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Nothing
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
.Pattern = "(\S)([A-Z]+[^A-Z])"
.Global = True
For Each xCell In xRg
xCount = .Execute(xCell).Count
If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
Next
End With
Application.ScreenUpdating = True
End Sub
3. F5 tuşuna bastıktan sonra, bölmek istediğiniz metinleri seçmenizi hatırlatan bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. Tamam’a tıklayın; ardından seçilen metinler iki sütuna bölünür: birinde "Küçük Harfli Dizilere Göre Filtrele", diğerinde "Büyük Harf İçerir" bulunur.
Metni ayırıcıya göre satırlara/sütunlara bölme ile Kutools for Excel
Birçok durumda, bir hücreyi belirli bir karaktere göre birden çok satıra veya sütuna bölmek isteyebilirsiniz. Excel’in yerleşik Metni Sütunlara Dönüştür özelliği yalnızca hücre içeriğini doğrudan sütunlara bölmeye yarar; satırlara dönüştürme konusunda ise yardımcı olmaz. Ancak Kutools for Excel’in kullanışlı ve pratik Hücreleri Böl özelliğiyle, metin dizesini ayırıcıya veya Belirli Genişlik’e göre hızlıca satırlara ya da sütunlara bölebilirsiniz.
Kutools for Excel uygulamasını ücretsiz olarak yükledikten sonra lütfen aşağıdaki adımları izleyin:
1. Bölmek istediğiniz hücreyi seçin ve Kutools > Birleştir ve Ayır > Hücreleri Böl seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Hücreleri Böl iletişim kutusunda, Tür bölümünden istediğiniz bölme türünü seçin ve ardından Bölme ölçütü bölümünden özel ayırıcınızı belirleyin. Ekran görüntüsüne bakın:
3. Tamam’a tıkladıktan sonra, bölünen içeriğin yerleştirileceği hücreyi seçmenizi hatırlatan bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. Seçim yaptıktan sonra Tamam’a tıklayın; ardından seçilen hücre, boşluğa göre satırlara bölünür. Ekran görüntüsüne bakın:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar