Split te Veri değiştirme

[mrwarrior]

Split komutu

Benim belgemde lu şekilde bilgiler var.

Sınav Adı, Öğrenci No,İşaret1, Cevap1, puan1, işaret2, cevap2, puan2


Gibi mesela

Matematik, 144, "A", "A", 5.0,"B", "A", 0
0, "B", "B", 5.0

0

Gibi

Benim istediğim 2. Sorunun B yazan ifadesini değiştirmek. Ama 3. Soruya dokunmamak. Bunun Split ile yapmaya çalıştım ama Split sanırım sadece veri alıyor. Değiştirmiyor. Acaba önce parçalayıp sonra tekrar mı birleştirmem gerek yoksa kısa yolu var mı?

 

[mrwarrior]

QuizName,QuizClass,FirstName,LastName,StudentID,CustomID,Earned Points,Possible Points,PercentCorrect,QuizCreated,DataExported,Key Version,Stu1,PriKey1,Points1,Mark1,Stu2,PriKey2,Points2,Mark2,Stu3,PriKey3,Points3,Mark3,Stu4,PriKey4,Points4,Mark4,Stu5,PriKey5,Points5,Mark5,Stu6,PriKey6,Points6,Mark6,Stu7,PriKey7,Points7,Mark7,Stu8,PriKey8,Points8,Mark8,Stu9,PriKey9,Points9,Mark9,Stu10,PriKey10,Points10,Mark10,Stu11,PriKey11,Points11,Mark11,Stu12,PriKey12,Points12,Mark12,Stu13,PriKey13,Points13,Mark13,Stu14,PriKey14,Points14,Mark14,Stu15,PriKey15,Points15,Mark15,Stu16,PriKey16,Points16,Mark16,Stu17,PriKey17,Points17,Mark17,Stu18,PriKey18,Points18,Mark18,Stu19,PriKey19,Points19,Mark19,Stu20,PriKey20,Points20,Mark20

7. SINIF MATEMATÄ°K DENEME 3,"7. SINIFLAR","AD","SOYAD",551,551,30.0,100.0,30.0,2020-10-24,2020-10-26 08:13:41,,"A","A",5.0,C,"B","D",0.0,X,"B","B",5.0,C,"A","C",0.0,X,"D","B",0.0,X,"C","C",5.0,C,"D","A",0.0,X,"A","C",0.0,X,"A","A",5.0,C,"C","A",0.0,X,"D","D",5.0,C,"B","A",0.0,X,"","C",0.0,X,"B","B",5.0,C,"C","D",0.0,X,"","D",0.0,X,"C","D",0.0,X,"B","A",0.0,X,"C","B",0.0,X,"D","C",0.0,X

 

[veyselemre]

Sub splitReplaceJoin()
    al = Range("A2")
    bl = Split(al, ",")
    soru = 18
    sira = (soru - 1) * 4 + 12
    bl(sira) = "A"
    al = Join(bl, ",")
    Range("A3") = al
End Sub

 

[mrwarrior]

Galiba değişti. Düzenlememi yaptıktan sonra kesin dönüş yaparım. İlginiz için çok teşekkür ederim. Join komutunu hiç görmemiştim. Elinize sağlık.

 

[mrwarrior]

Teşekkürler. Düzenleme ile toplu değiştirdim. Sizinkinden farklı olarak

b1(sira)=""""&"A"&""""
şeklinde yazdım. Böylece Aynı formatta ekledim.

İlginiz için çok teşekkürler.