从范围中删除一个单元格

Question

我想删除设置为rng8的表的H列的第一个单元格，并将新对象放入rng9。我要排除的单元格是列的标题。我使用以下命令，但它们不起作用

Set rng8 = Sheets(firstsheetname).Range("H:H") 

Set rng9 = rng8.Offset(1, 0).Resize(rng8.Rows.Count - 1, rng8.Columns.Count)

Answer 1

您遇到了一个错误，因为当您尝试将整列向下偏移一行时，下面没有其他行（因为您已经选择了整列）。
根据您的问题和代码唯一，此方法有效：

Set rng8 = Sheets(firstsheetname).Range("H:H") 
Set rng9 = rng8.Cells(1,1).Offset(1, 0).Resize(rng8.Rows.Count - 1, rng8.Columns.Count)

实际上，如果您实际上不需要rng8，则可以这样设置rng9：

With Sheets(firstsheetname)
    Set rng9 = .Range("H2:H", & .Rows.Count)
End With

但是，正如某人评论的那样，如果您只对设置H列的最后使用的行感兴趣，请使用以下方法：

With Sheets(firstsheetname)
    Set rng9 = .Range("H2", .Range("H" & .Rows.Count).End(xlUp))
End With