Quote:

Cells.Find(What:="09107101131000006872", After:=ActiveCell, LookIn:= _
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
      xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).

上面这段里头，现在我想把 What:="09107101131000006872" 指向一个具体的单元格，比如A2，每执行一次宏what就自动读取A2里面的值，然后执行 Find。这样每次我只要往A2里输一个新值就可以执行新的查找了。

如何写这个命令。

Quote:

Activate
  Range("F1533:J1533,L1533").Select

执行完查找之后，我想自动选定查找到的单元格同一行右侧的几个单元格，复制数据并粘贴到指定位置。也就是说，Range("F1533:J1533,L1533") 中的1533要成为一个根据查找到的单元格所在行而确定值的一个变量，又当如何写？

或者我的思路本根行不通？如果行不通有什么替代方案？

本人execl宏知识基本等于0起点，答复的大虾不要讲得太深，能让宏盲看懂最好。

ONENTRY 是一个事件

所以这样

在数据表的Auto_Open过程中加入下面的语句，auto_open过程是在数据表打开的时侯就会自动加载的过程
单元格名称.onentry=过程名（就是你的宏）
例：

Copy code

Sub Auto_Open()
A1.OnEntry = "Macro1"
End Sub

这个Auto_Open过程要写到单元格数据表的代码里，宏则可以在全局模块里