search标题名称后select整个列

试图教自己的VBA，这是非常新的。 到目前为止，Stackoverflow是一个很棒的资源，所以我想我会在这里问。

我想要它做的是find名为“参考”的单元格，然后复制下面的列。

出于某种原因，我无法在网上find这个地方，并认为我会咬紧牙关，并提出一个问题。

谢谢。

Answer 1

这取决于你所说的“细胞命名”的含义。 如果单元格实际上被命名为“引用”（即如果您已将单元格A1的范围重命名为Reference ，则可以使用偏移方法复制下面的单元格：

 ActiveSheet.Range("Reference").Offset(1, 0).Copy 

如果你正在search一个值为“Reference”的单元格，你可以find这个单元格，并使用这样的方法复制单元格（注意，如果有多个单元格符合search条件，它将复制单元格在最后find的单元格下面）：

 With ActiveSheet.UsedRange Set c = .Find("Reference", LookIn:=xlValues) If Not c Is Nothing Then ActiveSheet.Range(c.Address).Offset(1, 0).Copy End If End With 

如果要复制特定单元格下方的整个列，可以按照以下代码进行操作。 在这种情况下，它将复制单元格C7下面的所有已用单元格。

 Sub CopyColumnBelow() Dim r As Range Set r = ActiveSheet.Range("C7") ActiveSheet.Range(r, ActiveSheet.Cells(Rows.Count, r.Column).End(xlUp).Address).Copy End Sub 

希望你能用这个向前学习Excel VBA。