vba - 错误 1004 无论如何 - 从第一个到最后一个动态

Question

我的代码是

c=application.match("ID",rows(1),0)
Set n_copy_range=range(cells(1,c),Range(Rows.Count, c).End(xlUp))

我不断收到对象“_Global failed”的错误 1004“范围”。尝试使用 Set n_copy_range 将其设置为整数/长/范围，没有任何集合，但我猜它在 rows.count 部分一直失败？

我的目标是查看哪一列是“ID”，然后获取列数，当我得到它时，它假设从第一个单元格复制到最后一个单元格

我可以通过

Cells(1, c).Select 
Range(Selection, Selection.End(xlDown)).Select

但是我读到它不是非常有效的解决方案，所以我尝试省略它，所以我很想摆脱那个主要错误并保持第一个表格可供我使用

标签： vba

Answer 1

你非常接近：

Sub sdklfhsf()
    Dim c As Long, n_copy_range As Range
    c = Application.Match("ID", Rows(1), 0)
    
    Set n_copy_range = Range(Cells(1, c), Cells(Rows.Count, c).End(xlUp))
End Sub