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

哈哈，最后写成了这么个东西，谢谢大头

写得可能比较弱，不过够用了

Copy code

  Cells.Find(What:=[E1674], After:=ActiveCell, LookIn:= _
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
      xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
  ActiveCell.Offset(0, 1).Select '
  Selection.Copy
  Range("F1674").Select
  ActiveSheet.Paste
 
  Cells.Find(What:=[E1674], After:=ActiveCell, LookIn:= _
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
      xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
  ActiveCell.Offset(0, 2).Select '
  Selection.Copy
  Range("G1674").Select
  ActiveSheet.Paste
 
  Cells.Find(What:=[E1674], After:=ActiveCell, LookIn:= _
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
      xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
  ActiveCell.Offset(0, 3).Select '
  Selection.Copy
  Range("H1674").Select
  ActiveSheet.Paste
 
  Cells.Find(What:=[E1674], After:=ActiveCell, LookIn:= _
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
      xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
  ActiveCell.Offset(0, 4).Select '
  Selection.Copy
  Range("I1674").Select
  ActiveSheet.Paste
 
  Cells.Find(What:=[E1674], After:=ActiveCell, LookIn:= _
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
      xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
  ActiveCell.Offset(0, 5).Select '
  Selection.Copy
  Range("J1674").Select
  ActiveSheet.Paste
 
  Cells.Find(What:=[E1674], After:=ActiveCell, LookIn:= _
      xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
      xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
  ActiveCell.Offset(0, 6).Select '
  Selection.Copy
  Range("K1674").Select
  ActiveSheet.Paste

另一个问题:

Quote:

OnEntry 当用户在工作表中输入值时触发。该过程一直要到用户按下回车键或者移动到另外一个单元格时才触发。

如果用这个命令来触发上面的宏，比如一旦修改A2单元格的值就自动触发上面的宏，那么 OnEntry 命令的语法是什么？

visual basic help 没看懂 :p

哈，谢谢。

昨天发这个帖子的时候是临时抱佛脚要解决一个很烦的海量数据核对的工作，所以只求速成。现在已经做完了。今天去买了本VBA的书来从abc看起。