bir hücre içinde değişiklik yapmak

[tan968]

Merhaba

ek teki tabloda örnek görebileceksiniz. formüller de mevcut. Benim sorunum şu. A1 de başında boşluklar olan kısmın boşluklarını manuel olarak aldığım sorunu çözüyorum. ama bu liste 170,000 satır. bunu formülle halletme şansım var mı? şimdiden teşekkür ederim

 

[asi_kral]

Formül ile bu işi yapamazsınız en mantıklısı makro yazıp bu işi halletmek.

 

[YUSUF44]

Anladığım kadarıyla siz ilk boşluğu değil 4. boşluğa kadar olan kısmı alıp B sütununa yazmak istiyorsunuz değil mi?

 

[tan968]

Anladığım kadarıyla siz ilk boşluğu değil 4. boşluğa kadar olan kısmı alıp B sütununa yazmak istiyorsunuz değil mi?

Evet aynen öyle ama A kolunda yerinde duracak

 

[YUSUF44]

Metni sütunlara dönüştür menüsünü kullanmayı denediniz mi?

 

[tan968]

Metni sütunlara dönüştür menüsünü kullanmayı denediniz mi?

evet denedim. işe yaramıyor

 

[Merhum İdris SERDAR]

Merhaba

ek teki tabloda örnek görebileceksiniz. formüller de mevcut. Benim sorunum şu. A1 de başında boşluklar olan kısmın boşluklarını manuel olarak aldığım sorunu çözüyorum. ama bu liste 170,000 satır. bunu formülle halletme şansım var mı? şimdiden teşekkür ederim

.

İstediğiniz böyle bir şey mi?

.

 

[tan968]

.

İstediğiniz böyle bir şey mi?

.

aynen bu... nasıl yapacağım?

 

[Merhum İdris SERDAR]

aynen bu... nasıl yapacağım?

.

Formüllü hücreleri istediğiniz kadar aşağıya doğru kopyalayın.

.

 

[excelapachi]

Ekteki dosyadaki makroyu bakabilirseniz Düğme 1 e atayın tıklatın istediğiniz verileri atıyor.


Sub veri()

Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C1000"), Type:=xlFillDefault
Range("C1:C1000").Select
Range("D1").Select
Selection.AutoFill Destination:=Range("D11000"), Type:=xlFillDefault
Range("D11000").Select
Range("E1").Select
Selection.AutoFill Destination:=Range("E1:E1000"), Type:=xlFillDefault
Range("E1:E1000").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[2]"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A1000"), Type:=xlFillDefault
Range("A1:A1000").Select
Range("C21").Select

End Sub

 

[excelapachi]

Birde ilk olarak a sütununun soluna yeni bir sütun ekledikten sonra yapın.Dosya boyutu büyük olduğu için ekleyemedim. Eğer olmazsa rapide atabilirim.