ayraça göre ayırma?

[selcuk_c]

arkadaşlar,

246*2400
5*2700+850
6*2100+15
10*4000

a1 den a1000 hücresinde bulunan bu şekildeki girişlerin; * ve + ifadelerinden önceki ve sonraki kısımlarını diğer hücrelere makro kullanarak yazdırmak istiyorum.

örneğin; b c d
246 2400
5 2700 850
şeklinde

teşekkürler,

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub ayir()
For i = 1 To 1000
Cells(i, 1) = Replace(Cells(i, 1), "*", "+")
Next
    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
    :="+", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub

 

[Ali]

Alternatif,

Sub karektersil()
sonsatir = Range("A65536").End(xlUp).Row
For i = 1 To sonsatir
Cells(i, 1) = Trim(WorksheetFunction.Substitute(WorksheetFunction.Substitute(Cells(i, 1), "*", " "), "+", " "))
Next
End Sub

 

[cebir]

eki inceleyiniz.