有很多方法可以做到这一点，可能最接近你的问题的是这一个：

Sub Button7_Click()
    dim myRow as long
    myRow = ActiveSheet.Range("C2")
    ActiveSheet.Range("AI" & myRow).Value = _
    InputBox(Prompt:="registrera kontrakts-id.")
End Sub

另一个是ActiveSheet.Cells(myRow, "AI").Value。
在这种情况下，使用它绝对是ok，但在许多其他情况下ActiveSheetis something to avoid。
一般来说，一些“健全性”检查，Range("C2")中的值是否有效可能是有用的，只要它是空的，文本，负数或零，就会发生错误。

Sub Button7_Click()

    Dim myRow As Long
    myRow = ActiveSheet.Range("C2")
    
    If Not IsNumeric(myRow) Then
        MsgBox "C2 is not numeric!"
        Exit Sub
    ElseIf myRow <= 0 Then
        MsgBox "C2 is smaller or equal than 0!"
        Exit Sub
    End If
    
    ActiveSheet.Range("AI" & myRow).Value = InputBox(Prompt:="registrera kontrakts-id.")
    
End Sub