elimde aşağıdaki gibi 1000 adet numara var. Bu numaralar arasında boşluk olmaması gerekiyor. yani numaralar yan yana boşluksuz yazılması lazım. Örneğin 4569998817555682 bu şekilde. Excelde aralardaki boşlukları sildiğinizde 4,57E+15 gibi bir numara çıkıyor. Bunun bir formülü var mıdır? Çok aradım ama cevabı bulamadım. 4569 9988 1755 5682 3254 9988 1773 1755 6352 9988 1778 3251 2182 9988 1780 3237 |
Excel'den İYİ ANLAYAN Gelsin..
-
-
uppp
-
sayı olarak kullanılmayacaksa boşlukları silmeden önce;
ya hücrede veri başına ' (tırnak) ekle
ya da hücreleri seçip sağ tıkla / hücre biçilendir / Sayı / Metin
seç
-
Hepsini seç ctrl f e bas değistir de ilk satıra boşluk koy aşağıdaki satira bisey yapma değiştir de boşluklar silinecektir. Sonrada hepsini sayiya cevirirsin -
bunu daha önce denemiştim ama çözüm değil :(
-
bunu da daha önce denedim ama 1000 satır olduğu için tüm toplu hepsini yapmak için dediğiniz yöntem çözüm değil :(
-
kaç satır hücre seçerseniz o kadar işlem yapar. sayının 1000 olması önemli değil.
formül ile yapmak isterseniz formül şu:
=YERİNEKOY(A1;" ";"")
-
eğer dediğiniz buysa
https://www.extendoffice.com/documents/excel/3357-excel-insert-space-after-3-characters.html
vba'i açıp şu kodu yapıştırın. sonra text alanlarını seçip kodu F5 ile koşturun.
Sub
addspace()
'updateby Extendoffice
Dim
i
As
Long
Dim
xCell
As
Range
Dim
xRg
As
Range
Dim
xTxt
As
String
Dim
xStr
As
String
Dim
xUpdate
As
Boolean
On
Error
Resume
Next
xTxt = ActiveWindow.RangeSelection.Address
Set
xRg = Application.InputBox(
"Please select the data range:"
,
"Kutools for Excel"
, xTxt, , , , , 8)
Set
xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If
xRg
Is
Nothing
Then
Exit
Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating =
False
For
Each
xCell
In
xRg
xStr = xCell.Text
xTxt =
""
For
i = 1
To
Len(xStr)
Step
4
If
xTxt =
""
Then
xTxt = Mid(xStr, i, 4)
Else
xTxt = Trim(xTxt) &
" "
& Mid(xStr, i, 4)
End
If
Next
xCell = xTxt
Next
Application.ScreenUpdating = xUpdate
End
Sub
< Bu mesaj bu kişi tarafından değiştirildi 61gün -- 28 Ocak 2021; 23:12:17 >
-
tam tersini istiyorum aslında. Boşlukları silmek istiyorm.
-
Normalde işimin yoğunluğundan forma çok sık girmiyorum ancak denk geldi ve sorununu çözeyim dedim. Kolaylıklar dilerim.
-
sanırım fark etmedin ama hücreyi biçimlendir dedikten sonra ilgili rakamın sonuna daima sıfır rakamını atıyor.
Sende kendi hazırladığın excel'i kontrol edersen o şekilde :)
-
Senin için sayı olarak saklanması önemli yoksa metin olarak kalmasının bir mahsuru var mı?
-
@akcan üstadın yerinekoy formülü gayet güzel çalışıyor.
Formülü aşağıya doğru çekip, daha sora sütunu komple seçip, kopyala/değerleri yapıştır yapınca, rakamlar düzgün görünüyor.
Bunlara matematiksel işlemler yapmayacaksanız, görüntülemede sorun olmaz.
-
Hücre formatını sayı dan yazıya/text e çevirrseniz 457E li gözükmezler -
bu formül gayet başaralı ve kolay.
Yardımlarınız için teşekkür ederim.
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X