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起点，答复的大虾不要讲得太深，能让宏盲看懂最好。

这两个问题归结起来都是如何引用/指向单元格的问题.
其实这个偶也不懂,, 不过用关键字cell reference 搜一下office自带的visual basic help就有答案了

1
改成比如

Quote:

What:=[a2]

2
这个是Referring to Cells Relative to Other Cells 这个主题里的, 用比如activecell.offset(row,col)来引用.

[edit]
activecell can be substituted by any legal cell reference, e.g.,

Quote:

sub foo()
[a5].offset(10,0).value="bar"
end sub

this effectively sets [a15] as string "bar". notice that ".Value", being the default "Property", can be omitted. that's why in (1) we only need [a2] but not [a2].value. This is a common practice of all VB implementations (VB, VBA, VBS, etc)