Hücre içinde boş satırları silme..

[tamer42]

Merhabalar,

Bir hücrede Range("A1") aşağıdaki şekide satıtlar arası boşluklu olarak yazılmış durumda;
aradaki boş satırları silerek B1 hücresine nasıl yazdırabiliriz.

desteğinize şimdiden teşekkür ederim.

iyi çalışmalar.

mevcut:

aaaaaaaaaaaaaa

bbbbbbbbbbbbbbbbbbbbb

ccccccccccccccccccccccccccccc

ddddddddddddddddddddd

istenilen:

aaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbb
ccccccccccccccccccccccccccccc
ddddddddddddddddddddd

 

[dEdE]

Merhaba,
Eğer boş satırlar Alt+Enter ile oluşturulmuşsa aşağıdaki kodu önerebilirim.

Sub test()
myArray = Split(Range("A1"), Chr(10))
    For i = 0 To UBound(myArray)
      t = t & myArray(i) & Chr(10)
      i = i + 1
    Next i
Range("B1") = Left(t, Len(t) - 1)
End Sub

 

[pNouma]

Merhaba,
Eğer boş satırlar Alt+Enter ile oluşturulmuşsa aşağıdaki kodu önerebilirim.

Sub test()
myArray = Split(Range("A1"), Chr(10))
    For i = 0 To UBound(myArray)
      t = t & myArray(i) & Chr(10)
      i = i + 1
    Next i
Range("B1") = Left(t, Len(t) - 1)
End Sub

çok teşekkürler....