[已解决]如何按条件查找特定的值并且复制到指定单元格

leobu · 发表于 2015-1-1 12:07

大家新年好。有个问题来求教，工作簿中有若干张工作表，现在要在每一张表中查找某个特定日期所对应的E列的值，并将它复制到n2单元格内。例如，如图所示，第357号工作表中，2013/2/1这一日期在第11行，对应的E列数值为11.63，要将其复制到本表n2单元格内。然后对剩下的工作表进行类似操作，关键是每张表中2013/2/1这一日期所对应的行号都有变化，例如第367号工作表中2013/2/1这一日期在第21行；第678号工作表中2013/2/1这一日期在第22行。
我刚开始学VBA，根据某些书上提示，自己写了前面几句代码，后面就不会写了，恳请高手能帮我修改完成。
Sub cz()
   Dim sht As Worksheet
   Dim cell As Range
      For Each sht In Worksheets
         sht.Activate
         With Range("A1:A500")
         Set c = .Find(what:="2013/2/1", after:=.Cells(.Cells.Count), LookIn:=xlValues, lookat:=xlWhole, searchDirection:=xlNext)
         End With
      Next sht

End Sub

最佳答案

月排行榜 / 总排行榜

qh8600

2015-1-1 13:24

如何按条件查找特定的值并且复制到指定单元格.rar (16.8 KB, 下载次数: 269)

qh8600 · 发表于 2015-1-1 13:23

Sub demo()
Dim x, i, ar
For x = 1 To Sheets.Count
With Sheets(x)
ar = .Range("a2").CurrentRegion
For i = 1 To UBound(ar)
If ar(i, 1) = #2/1/2013# Then
.Range("n2") = ar(i, 5)
Exit For
End If
Next
End With
Next
End Sub

复制代码

附件楼下

qh8600 · 发表于 2015-1-1 13:24

这个最佳答案由 qh8600 给出，感谢 qh8600 的回答。

单击隐藏图章

如何按条件查找特定的值并且复制到指定单元格.rar (16.8 KB, 下载次数: 269)

leobu · 发表于 2015-1-2 09:40

多谢qh8600的帮助，祝新年快乐。

wf5247 · 发表于 2015-11-28 14:25

我也学学，感谢楼主和qh8600提供的学习机会！

bdcjm · 发表于 2016-10-17 09:17

感谢楼主

czqzdq · 发表于 2017-3-20 12:55

我也学学，感谢qh8600!

lzpbl · 发表于 2017-3-29 19:58

我也学学，学学

鸣天 · 发表于 2017-7-11 10:32

1111111111111111111111

龙腾灵林 · 发表于 2017-10-15 10:03

谢谢分享

		自动登录	找回密码
密码			注册

[已解决]如何按条件查找特定的值并且复制到指定单元格

评分

相关帖子

评分

浏览过的版块