[已解决]数据提取20121028

wucj80 · 发表于 2012-10-29 00:57

谢谢老师了,要学习

最佳答案

zjdh

2012-10-30 08:02

本帖最后由 zjdh 于 2012-10-30 08:07 编辑

Sub 得到数据()
Dim I%, J%
Range(Range("Q2"), Cells(Range("o65536").End(3).Row, "ad")).ClearContents
For J = 2 To Range("o65536").End(3).Row
      For I = 2 To Range("a65536").End(3).Row
         If Cells(I, 1) = Cells(J, 15) Then
            Range(Cells(J, "q"), Cells(J, "ad")).Value = Range(Cells(I, "a"), Cells(I, "n")).Value
            Exit For
         End If
      Next
Next
End Sub

跳转到最佳答案楼层

zjdh · 发表于 2012-10-29 07:46

A列有很多重复，而B列内容又不相同，是全部要提取出来吗？

wucj80 · 发表于 2012-10-29 07:49

不用.只要一个就好

wucj80 · 发表于 2012-10-29 08:00

里边的数据那一个都行

wucj80 · 发表于 2012-10-29 16:53

怎么没有人回应,我急用的,老师们

hoogle · 发表于 2012-10-29 19:17

提取数据20121028.zip (14.97 KB, 下载次数: 12)

wucj80 · 发表于 2012-10-29 19:41

这位老师你好,你的这个提取搂据好像提取不了想要的那数据哦,能改进一下吗

zjdh · 发表于 2012-10-30 08:02

本帖最后由 zjdh 于 2012-10-30 08:07 编辑

Sub 得到数据()
Dim I%, J%
Range(Range("Q2"), Cells(Range("o65536").End(3).Row, "ad")).ClearContents
For J = 2 To Range("o65536").End(3).Row
      For I = 2 To Range("a65536").End(3).Row
         If Cells(I, 1) = Cells(J, 15) Then
            Range(Cells(J, "q"), Cells(J, "ad")).Value = Range(Cells(I, "a"), Cells(I, "n")).Value
            Exit For
         End If
      Next
Next
End Sub

798287748 · 发表于 2012-11-6 14:07

谢谢！我又学习了一样东西

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