Excel VBA：如何根据当前工作表C2值指定Contracts表AI列的行号

你可以通过以下代码实现需求，核心是获取当前工作表C2单元格的行号，再定位到Contracts工作表AI列的对应行：

Sub Button7_Click()
    ' 获取当前工作表C2单元格中的行号
    Dim targetRow As Long
    targetRow = ActiveSheet.Range("C2").Value
    
    ' 将输入框内容写入Contracts工作表AI列的对应行
    Worksheets("Contracts").Cells(targetRow, "AI").Value = _
        InputBox(Prompt:="registrera kontrakts-id.")
End Sub

关键说明： #

• 使用ActiveSheet指代当前操作的工作表，确保能正确读取C2的行号；如果按钮固定在某张工作表上，也可以替换为Me（比如按钮在"数据录入"表，就用Me.Range("C2").Value）。
• 用Cells(行号, 列标识)的方式定位单元格，比字符串拼接更可靠，避免因格式错误导致的引用失效；如果习惯用Range拼接，也可以写成Range("AI" & targetRow)，效果一致。
• 增加targetRow变量存储行号，让代码逻辑更清晰，也方便后续调试或扩展。

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