[已解决]在L3单元格输入编号，信息都到了这里

5853195

物业收费.rar (3.93 KB, 下载次数: 9)

2016-5-17 07:54 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2016-5-17 10:37

1. Sub Macro1()
   
2. Sheet2.Activate
   
3. Set rng = Sheet1.[e:f].Find([l3].Value, lookat:=xlWhole)
   
4. If Not rng Is Nothing Then Sheet1.Cells(rng.Row - 1, 1).Resize(12, 10).Copy [a1]
   
5. End Sub

复制代码

跳转到最佳答案楼层

baksy

附件

5853195

baksy老师真是高手，想学习你的代码，但是找不着

dsmch

1. Sub Macro1()
   
2. Sheet2.Activate
   
3. Set rng = Sheet1.[e:f].Find([l3].Value, lookat:=xlWhole)
   
4. If Not rng Is Nothing Then Sheet1.Cells(rng.Row - 1, 1).Resize(12, 10).Copy [a1]
   
5. End Sub

复制代码

5853195

dsmch老师，你的 代码输在任何地方，考都不自动运行，只有点工具宏才运行，不知为哈，请老师给个附件