Excel宏:使用可变列打印特定行的值

时间:2014-08-06 12:39:02

标签: excel vba excel-vba

我正在尝试根据可能是任何内容的列打印出某一行,我试图使用这样的内容:

'Gets me the Title(Top of Column) of whatever cell was changed
    If Worksheets("Testing Sheet").Range("A2").Value = "" Then

        Worksheets("Testing Sheet").Range("A2").Value = Range(Target.Column & ("7")).Value
    Else

        Worksheets("Testing Sheet").Range("A1").End(xlDown).Offset(1, 0).Value =  Range(Target.Column & ("7")).Value
    End If

我认为使用与此类似的东西可以在我的代码中看到:

Range("H" & Target.Row)

这似乎适用于那种情况,但是当我尝试执行特定行时,我得到错误“Object_Worksheet的方法范围失败”。希望这是一个非常简单的解决方案,我只是不知道

1 个答案:

答案 0 :(得分:1)

带有绝对行号和列号的

Range cannot be used使用Cells(Row,Column)代替

Cells("7", Target.Column)

要获取已更改单元格的地址和值,请使用 分别为Target.AddressTarget.Value