吸波材料衰减常数计算，Excel源代码

 近日收到一些关于吸波材料数据计算方面的求助，本人将衰减常数计算程序示例如下，恳请批评指正

 

    Dim u1 As Double
    Dim u2 As Double
    Dim c1 As Double
    Dim c2 As Double
    Dim f As Double
    Dim pi As Double
    Dim c As Double
    Dim a As Double
    Dim i As Long
    
    pi = Application.WorksheetFunction.pi
    c = 299792458
    
    Dim col As Long
    
    Range("A1", Range("A1").End(xlDown)).Select
    col = Selection.Rows.Count
    
    For i = 2 To col
    
    c1 = Cells(i, 2).Value
    c2 = Cells(i, 3).Value
    u1 = Cells(i, 4).Value
    u2 = Cells(i, 5).Value
    
    a = (u2 * c2 - u1 * c1) ^ (2) + (u1 * c2 + u2 * c1) ^ (2)
    a = u2 * c2 - u1 * c1 + (a) ^ (0.5)
    a = (a) ^ (0.5)
    a = 1.4142135623731 * pi * f * a * (1 / c) * 1000000000
    
    Cells(i, 6).Value =