DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=A1 & "(" & METNEÇEVİR(C1;"0,000000") & " " & B1 & ")"
Sub Birlestir()
Dim i As Long, deg As String
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
deg = Format(Cells(i, "C"), " ( 0.000000 ") & Cells(i, "B") & ")"
If InStr(Cells(i, "A"), deg) = 0 Then
Cells(i, "A") = Cells(i, "A") & deg
End If
Next i
End Sub