如何在VBA单元格区域中使用用户输入的行号变量？

你的问题出在字符串拼接方式不对——VBA不会自动解析引号里的(Val(c))，得用字符串连接符把变量和列标字符串拼起来。下面给你几种靠谱的写法：

方法1：字符串拼接（最直观） #

直接用&把列标、变量、列标连起来，生成正确的区域字符串：

Range("C" & c & ":I" & c).Copy

比如当c=5时，这段代码会生成Range("C5:I5")，和你原来的硬编码写法效果完全一致。

方法2：用Cells对象定义范围（更灵活） #

如果后续需要调整列的位置，用Cells会更方便，它的参数是(行号, 列名/列序号)：

Range(Cells(c, "C"), Cells(c, "I")).Copy

这里Cells(c, "C")指第c行C列的单元格，Cells(c, "I")指第c行I列的单元格，Range会自动选中这两个单元格之间的整片区域。

完整示例宏 #

给你写个包含用户输入、复制粘贴的完整可运行例子：

Sub CopyRowToTargetSheet()
    Dim c As Variant
    ' 获取用户输入的行号
    c = InputBox("请输入要复制的行号：")
    
    ' 校验输入是否为有效数字
    If Not IsNumeric(c) Then
        MsgBox "请输入有效的数字行号！"
        Exit Sub
    End If
    c = CInt(c) ' 把输入转为整数类型
    
    ' 复制指定区域
    Range("C" & c & ":I" & c).Copy
    ' 粘贴到目标工作表（把"目标工作表"改成你实际要用的表名）
    Sheets("目标工作表").Range("A1").PasteSpecial xlPasteAll ' 按需改粘贴类型，比如xlPasteValues只粘贴值
    
    ' 清除剪贴板，避免残留复制状态
    Application.CutCopyMode = False
End Sub

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