yapılanlar:
1 - çalışmanız makro çalıştırabilen formata dönüştürüldü(xlsm olarak kaydedildi)
2 - Modül eklenip aşağıdaki yordam tanımlandı
Sub VeriBirlestir()
Set sht = ThisWorkbook.Sheets("IVL")
Dim TmpDz As Variant
Aranan = "Analizin Adı"
xAdrs = sht.UsedRange.Address & ":" & sht.UsedRange.Address
SonStr = Val(Split(xAdrs, "$")(4)) + 1
TmpDz = sht.Range("A1:B" & SonStr).Value
Dim VeriDz As Variant
ReDim VeriDz(1 To SonStr, 0)
IVLStr = ""
For x = 1 To SonStr
If TmpDz(x, 2) = Aranan Then
IVLStr = IVLStr & x & ","
End If
Next x
IVLStr = IVLStr & SonStr
tmpVer = Split(IVLStr, ",")
For y = 0 To UBound(tmpVer) - 1
VeriGc = ""
xSon = tmpVer(y + 1) - 1
If Len(TmpDz(xSon, 1) & "") = 0 Then xSon = xSon - 1
For x = tmpVer(y) + 3 To xSon - 2
VeriGc = VeriGc & " * " & TmpDz(x, 1) & " : " & TmpDz(x, 2)
Next x
VeriGc = Mid(VeriGc, Len(" * ")) & " ANL: " & TmpDz(xSon, 1)
VeriDz(tmpVer(y), 0) = VeriGc
Next y
sht.Range("P2").Resize(SonStr, 1) = VeriDz
End Sub
