Question

如何选择其中包含“部件＃1”的单元格，然后将该单元格用作选择一系列单元格的参数之一。例如：如果“Part＃1”在单元格A1中，我想选择一系列单元格A1：D4。

Sub Part_1_Select

'Seach for Cell somehow'
Cell.Activate
ActiveCell: D4.Select
Selection.Copy
Range("B4").Select
Selection.Paste
End Sub

我认为这也应该是类似的。

Answer 1

For Each c In Worksheets("Sheet1").Range("A1:D10").Cells
    If c.Value = "Part # 1" Then
       Cell.Activate
       Range(c & ":D4").Select
    End If
Next

这不是完美的代码，但它可以为您提供一个良好的起点，让您到达目的地。

Answer 2

    Range(Cells.Find(What:="Part # 1").Address & ":D4").Select

使用VBA选择包含文本的单元格

2 个答案: