嘿，我来帮你拆解这个问题，你遇到的编译错误其实是两个小问题导致的，咱们一步步来解决：

错误根源在哪？ #

1. 循环变量类型不对：你把x和y声明成了Double类型，但VBA里用For Each遍历数组的时候，控制变量必须是Variant或者Object类型，这是硬规则，所以编译器直接报错了。
2. 循环收尾写错了：你的Next语句写的是Next varry和Next arr，这完全搞错了——Next后面应该跟你前面定义的循环变量（也就是y和x），不是数组的名字。
3. 额外小提醒：从单元格区域取的数组是二维数组哦，哪怕你只选了一行，它也是1行×N列的结构，不过For Each倒是能直接遍历所有元素，但如果你的需求是把两行对应列的元素配对计算（比如ADB3配ADB4，ADC3配ADC4），那原有的嵌套循环逻辑其实不对，我后面会给你两种场景的代码。

修正后的完整代码 #

下面是调整好的代码，还顺便优化了你的公式（((x-y))^2^0.5其实就是求两个数差的绝对值，用Abs()函数更简洁高效）：

Sub Main()
    Application.ScreenUpdating = False
    
    ' 声明变量
    Dim kr As Double
    Dim arr As Variant
    Dim varry As Variant
    ' 把x和y改成Variant，符合For Each的要求
    Dim x As Variant
    Dim y As Variant
    ' 如果要对应位置配对，需要索引变量
    Dim i As Long
    
    ' 获取数组（注意Range首字母大写，避免和内置函数重名）
    arr = Range("ADB3:ADE3").Value
    varry = Range("ADB4:ADE4").Value
    
    ' 场景1：遍历两个数组的所有元素组合（所有x和y的配对）
    Debug.Print "所有元素组合的计算结果："
    For Each x In arr
        For Each y In varry
            kr = Abs(x - y) ' 等价于你原来的((x-y))^2^0.5
            Debug.Print kr
        Next y ' 这里要写循环变量y，不是数组名varry
    Next x ' 这里写循环变量x，不是数组名arr
    
    ' 场景2：对应位置元素配对计算（同一列的上下两个单元格）
    Debug.Print vbNewLine & "对应列元素的计算结果："
    For i = LBound(arr, 2) To UBound(arr, 2)
        kr = Abs(arr(1, i) - varry(1, i))
        Debug.Print kr
    Next i
    
    Application.ScreenUpdating = True
End Sub

几个关键调整说明 #

• 变量类型修正：把x和y换成Variant类型，完美适配For Each的语法要求。
• 循环语句修正：Next后面跟循环变量，再也不会报错啦。
• 公式优化：用Abs()替代幂运算，不仅代码更易读，计算也更高效。
• 双场景支持：考虑到你选的是两行同列的区域，大概率是要对应列计算，所以特意加了这种场景的代码，你可以根据自己的需求选其中一种。

内容的提问来源于stack exchange，提问作者inky