用vb编写代码批量替换多个条件的数据

zhcd · 发表于 2011-4-11 13:55

帮忙做一下vb我做了一个不会写代码，帮帮忙写一下，另外我做的窗体出不来。要求同时替换符合12个条件的数据，也就是希望能够同时替换任何数据。急用！！！谢谢！！！

zhz3230 · 发表于 2011-4-11 15:04

Sub zhz3230()
Set d = CreateObject("scripting.dictionary")
ar = Range("e3:f" & Range("e65536").End(xlUp).Row)
For h = 1 To UBound(ar)
d(ar(h, 1)) = ar(h, 2)
Next h
For i = 3 To Range("b65536").End(xlUp).Row
If Cells(i, 2) <> "" Then
aa = Left(Trim(Cells(i, 2)), 1)
If d.exists(aa) Then
Cells(i, 3) = Val(d(aa)) * 10 + Val(Right(Trim(Cells(i, 2)), 1))
End If
End If
Next
End Sub

zhz3230 · 发表于 2011-4-11 15:06

貌似15行有错

zhcd · 发表于 2011-4-11 18:48

这一个不行啊，能不能帮我做一下，我是个菜鸟。

wj2368 · 发表于 2011-4-11 20:02

原帖由 zhcd 于 2011-4-11 18:48 发表
这一个不行啊，能不能帮我做一下，我是个菜鸟。

EWEEEEEE

zhcd · 发表于 2011-4-12 08:25

原帖由 wj2368 于 2011-4-11 20:02 发表

EWEEEEEE

我这仅仅是一个例子，如果数据是10列，1500行，这个怎么改？

wj2368 · 发表于 2011-4-12 18:27

天啊，你认为别人没有事情

zhcd · 发表于 2011-4-14 10:28

虽然都有事情，但还是谢谢了

wj2368 · 发表于 2011-4-14 15:21

原帖由 zhcd 于 2011-4-12 08:25 发表

我这仅仅是一个例子，如果数据是10列，1500行，这个怎么改？

aaaaaaaaaaaaaaaaaaaa

blackttea1 · 发表于 2011-4-17 13:14

支持一下，谢谢！

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

[求助] 用vb编写代码批量替换多个条件的数据

回复 2楼 zhz3230 的帖子

回复 7楼 wj2368 的帖子