VBA遍历列 - 如果在里面

Question

这段代码有什么问题？它应该返回找到“1”的列的标题(第一行)。我传递了行号(nr)，它应该在列 M 和 T(包括)之间查找

Function who(ByVal rowNr As Integer) As String
    Dim temp As String
    Dim ws As Worksheet
    With ActiveSheet
        Set ws = ActiveWorkbook.Sheets(.Name)
    End With
    For i = 13 To 20 Step 1
        If ws.Cells(i, rowNr).Value = 1 Then
            temp = temp & " " & ws.Cells(i,1).Value
        End If
    Next i
    who = temp
End Function

我得到的错误是

Application-Defined or Object-Defined error

并标记线

If ws.Cells(i, nr).Value = 1 Then

我真的不喜欢VB。

Answer 1

如果 nr用作数值，为什么要以 String 形式发送.尝试将其更改为 Integer你至少应该走得更远一点。

编辑:我忘了我认为你可能也混淆了行/列。我想也许你希望它是:

If ws.Cells(nr, i).Value = 1 Then