VBA excel搜索列和行然后插入到该单元格

Question

我是VBA excel的新手，现在我需要开发一个Marco来搜索表并将值插入到该特定单元格中。我知道有一种技术可以循环遍历所有列和行，但它会给我的代码带来更多问题。任何其他技术都可以实现吗？

假设我有一张桌子：

如何搜索第7周和面包，我想在Marco的那个单元格中插入10的值？谢谢。

Answer 1

在不使用循环的情况下，您可以使用.Find（）获取行和列号，然后使用Cells（rownumber，columnnumber）来存储数据。

下面的代码应该为您提供前进的方法

Sub insert()
Dim myColumn As Range
Dim myRow As Range

Set myColumn = Sheets("Sheet1").Rows("2:2").Find("Week 2")
Set myRow = Sheets("Sheet1").Columns("A:A").Find("Nuts")

Sheets("Sheet1").Cells(myRow.Row, myColumn.Column) = "10"

End Sub