Question

VBA 编程问题 求帮忙 谢谢了先

描述下步骤：
1、选定sheet1中B1单元格的值，在sheet2的A列中搜索
2、搜索结果为sheet2中的A1000
3、选定sheet2中M1000单元格的值，粘贴到sheet1中X1单元格内
4、选定sheet1中B2单元格的值。。。。重复
要求：手动选定sheet1的单元格B1后一直运行到B列最后一个单元格，中间有空白单元格
PS：语句最好不用缩写 方便我学习学习 谢谢了

Answer 1

Sub 搜索()
  Dim lEndRow As Long
  Dim oRange As Range
  Dim lRow As Long
  lEndRow = Sheet1.Range("B65536").End(xlUp).Row
  For lRow = 1 To lEndRow
    Set oRange = Sheet2.Range("A:A").Find(Sheet1.Range("B" & lRow), LookIn:=xlValues, LookAt:=xlWhole)
    If Not oRange Is Nothing Then
      Sheet2.Range("M" & oRange.Row).Copy Sheet1.Range("X" & lRow)
    End If
  Next
End Sub

追问

第5行提示424错误：要求对象

追答

错误原因是工作簿中没有工作表Sheet1

追问

不可能啊  我专门改的工作表名称

追答

代码中Sheet1修改为WorkSheets("Sheet1")，
代码中Sheet2修改为WorkSheets("Sheet2")。

你改的工作表名称和我说的名称不是同一个意思，
语句：WorkSheet.Name
我说的工作表名称是指vba工程中的名称，表示WorkSheet对象
你说的工作表名称是指工作表的属性Name。

追问

嗯嗯 明白了 谢谢！