如何编写函数或vba，实现多列多行的单元格自动循环选择引用数据进行运算

xusheng21

求助内容请见标题和附图，也不知道描述的是否准确

Jday1218

Sub CalculateMatch()
    Dim i As Integer
    Dim maxValue As Integer
    maxValue = Application.InputBox("请输入最大值：", "输入最大值", Type:=1)
   
    For i = 1 To 30
        If Cells(i, 8).Value >= maxValue Then
            Exit For
        End If
        Cells(i + 30, 8).Value = Application.Match(Cells(i, 1).Value, Range("A1:F" & i + 29), 0)
    Next i
End Sub

xusheng21

Jday1218 发表于 2023-2-11 01:44
Sub CalculateMatch()
    Dim i As Integer
    Dim maxValue As Integer

好像哪里有问题，您看我截的步骤显示，输完值后它就返回vba窗口没反应了

xusheng21

我加了点描述

xusheng21

Jday1218 发表于 2023-2-11 01:44
Sub CalculateMatch()
    Dim i As Integer
    Dim maxValue As Integer

高手，在么