求大神帮忙一个很小的问题在列中查找替换

wwtt11 · 发表于 2015-1-8 15:56

图中B列有几千个数据我要同时找出3个并替换例如095替换110 请高手赐教

wwtt11 · 发表于 2015-1-8 17:03

大神们麻烦你们了！

wwtt11 · 发表于 2015-1-8 17:04

其实是个很简单的问题因为小弟不懂！

liulang0808 · 发表于 2015-1-8 20:08

上附件吧，在附件中举例说明需求，具体按照什么原则怎样替换

wwtt11 · 发表于 2015-1-8 21:32

liulang0808 发表于 2015-1-8 20:08
上附件吧，在附件中举例说明需求，具体按照什么原则怎样替换

在此帖怎么上附件？还是要从新发帖再带上附件能加我QQ吗 3130192372

wwtt11 · 发表于 2015-1-8 21:36

这是附件

wwtt11 · 发表于 2015-1-8 21:36

wwtt11 发表于 2015-1-8 21:32
在此帖怎么上附件？还是要从新发帖再带上附件能加我QQ吗 3130192372

大神附件已经上传

wwtt11 · 发表于 2015-1-8 21:37

liulang0808 发表于 2015-1-8 20:08
上附件吧，在附件中举例说明需求，具体按照什么原则怎样替换

大神附件已经上传

dajiahaoxinku12 · 发表于 2015-1-8 22:35

本帖最后由 dajiahaoxinku12 于 2015-1-8 22:38 编辑

数据量大公式运算速度会很慢，用VBA给你处理一下

liulang0808 · 发表于 2015-1-9 07:06

Sub 按钮1_Click()
Application.ScreenUpdating = False
r = Cells(Rows.Count, 1).End(3).Row + 3
arr = Range("a1:a" & r)
For j = 1 To r - 3
      If arr(j, 1) & arr(j + 1, 1) & arr(j + 2, 1) & "" = "794" Then
         arr(j, 1) = 1
         arr(j + 1, 1) = 1
         arr(j + 2, 1) = 0
         j = j + 2
      End If
Next j
[d1].Resize(r - 3) = arr
Application.ScreenUpdating = True

End Sub

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

求大神帮忙 一个很小的问题 在列中查找替换

求大神帮忙一个很小的问题在列中查找替换