在另一张表格中查找单元格

我为申请付款计划的学生创build了一个数据库。 我有3张：

“查询” – 这是数据存储在等待学生注册的地方。

“确认” – 这个数据有3行标题：学生证（B1），计划证（B2）和工资证（B3）。这是学生注册后我将input的额外数据。

“Masterlist” – 确认付款计划的学生的最终名单。

这个想法是我手动input“确认”表中的数据，然后运行一个macros，在“查询”表中search学生ID（B1）的值。 然后，我希望它在“查询”表中的B和E栏中复制计划ID（B2）和工资ID（B3）。

一旦数据被填充，我需要将整行转移到“Masterlist”工作表。

我试过录制Marco，但是当我录制它时，它发现它只是单元格的当前值。 我用公式很好，但之前没有真正完成macros。

Range("B1").Select Selection.Copy Sheets("Enquiry").Select Cells.Find(What:="4536092", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Rows("29:29").Select Application.CutCopyMode = False Selection.Copy Sheets("Masterlist").Select ActiveWindow.LargeScroll Down:=-7 Rows("2:2").Select Sheets("Enquiry").Select Range("A29").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "4536092" Rows("29:29").Select Selection.Copy Sheets("Masterlist").Select Rows("2:2").Select Selection.Insert Shift:=xlDown 

Answer 1

不是所有的vba善良都可以通过macroslogging器访问。 下面的代码在我基于您的图纸布局描述构build的testing工作簿中工作。 未来，请添加屏幕截图或更好的工作簿的保险箱xlsx。 另外请注意，这里很less有人会花时间从头开始构build代码。

我已经评论了很多。 玩这个。 有问题的评论，我会回答。

 Sub macroName() 'declaring range object Ranges hold values and cell addresses at the same time Dim id As Range Dim found As Range 'setting id var Set id = Worksheets("Confirmed").Range("b2") 'making sure id we are checking isn't null If Not id.Value = "" Then 'finding the value for var id. xlWhole means exact cell match. Set found = Worksheets("Enquiry").Cells.find(What:=id, LookAt:=xlWhole) MsgBox "Inserted new row in Masterlist for ID: " & id Else MsgBox "ID cannot be null at: " & id.Address End If 'making sure we had a match from .find If Not found Is Nothing Then 'inserting a new row Worksheets("Masterlist").Range("a2").EntireRow.Insert 'setting new row to value of entire row value of range object. Worksheets("Masterlist").Range("a2").Value = found.Rows.Value Else MsgBox "Nothing found for id: " & id.Value End If End Sub