Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1896|回复: 4

[已解决]如何用VBA找到符合条件的内容

[复制链接]
发表于 2013-3-26 11:30 | 显示全部楼层 |阅读模式
大家帮帮我吧,如何用VBA找到符合条件的内容,小弟在此谢过了!!!
最佳答案
2013-3-28 16:00
  1. Sub test()
  2.     Dim A, B, i%, j%, k%, l%
  3.     A = Sheet1.Range("a1").CurrentRegion
  4.     Sheet2.Range("b2:c65536").ClearContents
  5.     B = Sheet2.Range("a1").CurrentRegion
  6.     For i = 2 To UBound(B)
  7.         For j = 2 To UBound(B, 2)
  8.             For k = 2 To UBound(A)
  9.                 For l = 1 To UBound(A, 2)
  10.                     If B(i, j) = 0 Then
  11.                         If B(i, 1) = A(k, 2) And B(1, j) = A(k, 3) Then
  12.                             B(i, j) = A(k, 1)
  13.                         End If
  14.                     End If
  15.                 Next
  16.             Next
  17.         Next
  18.     Next
  19.     Sheet2.Range("b:c").NumberFormat = "m月d日"
  20.     Sheet2.Range("a1").Resize(i - 1, j - 1) = B
  21. End Sub
复制代码
如何用VBA找到符合条件的内容2.rar (9.75 KB, 下载次数: 14)

如何用VBA找到符合条件的内容.rar

3.67 KB, 下载次数: 19

123

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-3-26 12:56 | 显示全部楼层
数据排序后,用 find 来查找到的第一个就是最先出现的!!
回复

使用道具 举报

 楼主| 发表于 2013-3-27 14:44 | 显示全部楼层
回复

使用道具 举报

发表于 2013-3-28 16:00 | 显示全部楼层    本楼为最佳答案   
  1. Sub test()
  2.     Dim A, B, i%, j%, k%, l%
  3.     A = Sheet1.Range("a1").CurrentRegion
  4.     Sheet2.Range("b2:c65536").ClearContents
  5.     B = Sheet2.Range("a1").CurrentRegion
  6.     For i = 2 To UBound(B)
  7.         For j = 2 To UBound(B, 2)
  8.             For k = 2 To UBound(A)
  9.                 For l = 1 To UBound(A, 2)
  10.                     If B(i, j) = 0 Then
  11.                         If B(i, 1) = A(k, 2) And B(1, j) = A(k, 3) Then
  12.                             B(i, j) = A(k, 1)
  13.                         End If
  14.                     End If
  15.                 Next
  16.             Next
  17.         Next
  18.     Next
  19.     Sheet2.Range("b:c").NumberFormat = "m月d日"
  20.     Sheet2.Range("a1").Resize(i - 1, j - 1) = B
  21. End Sub
复制代码
如何用VBA找到符合条件的内容2.rar (9.75 KB, 下载次数: 14)
回复

使用道具 举报

 楼主| 发表于 2013-3-28 16:37 | 显示全部楼层
万分感谢!!!!!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 10:03 , Processed in 0.637012 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表