[sooriaty03]

هذا الكود بعد التعديل بحسب فهمي أرجو أن يكون صحيحا

كود :

Imports Microsoft.Office.Interop
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FileName As String = Application.StartupPath & "\Book.xlsx" 'ضع اسم ملف الإكسل
        Dim App_exl As Excel.Application = CreateObject("Excel.Application")
        Dim App_Wrk As Excel.Workbook = App_exl.Workbooks.Open(FileName)
        Dim App_wst As Excel.Worksheet = App_Wrk.Worksheets.Item(1)
        For I = 2 To App_wst.UsedRange.Rows.Count
            If String.IsNullOrEmpty(App_wst.Range("A" & I).Value) = False AndAlso String.IsNullOrEmpty(App_wst.Range("B" & I).Value) = False Then
                App_wst.Range("C" & I).Value = "=A" & I & "+B" & I
            End If
        Next
        App_Wrk.Save()
        App_Wrk.Close()
        App_exl.Quit()
    End Sub
End Class

بالتوفيق