Dinamik Metinsel Veriyi Anlamlı Hale Getirmek

[taboo165]

Merhaba,

Excel'e dinamik olarak internetten getirdiğim veriyi işlerken bir sorunla karşılaştım.

Veriler uzak sunucudan gelirken kullanmayacağım hücre ve karakterler ile gelmekte. Örneğin aşağıdaki linke yüklediğim gibi bir veri dizim var (aslında 1000'lerce hücreden oluşuyor basitleştirdim) içerisinden boş hücreleri ve " < ", " > " karakterlerini filtreleyerek birbirlerine karşılık gelen isimleri farklı bir sheet'te ayrı sütunlara getirmek istiyorum.

Bu konuda yardımcı olabilir misiniz?

Teşekkürler

http://www.dosyayukle.net/download/cdcff5029b76d64b9cd7353fd9d16423.html

 

[Erdem Akdemir]

Sub temizle()
On Error Resume Next
a = 2
son = Cells(Rows.Count, "a").End(3).Row - 1
For i = 1 To son
 If Asc(VBA.Left(Cells(i + 1, "a"), 1)) = 32 Or IsEmpty(Cells(i + 1, "a")) Then
 Else
Cells(a, "e") = Cells(i + 1, "a")
a = a + 1
End If

Next i
End Sub