[原创]★利用高级筛选对数据库的数据进行批量修改▲

LangQueS · 发表于 2008-1-4 21:16

利用高级筛选对数据库的数据进行批量修改:

oULDNzEa.rar (22.26 KB, 下载次数: 1499)

代码不正规，仅供参考：（数据库的A列设置为行号，专为返回数据所用）

Sub 更新高级筛选结果修改后更新到数据库()
Application.Calculation = xlCalculationManual          '手动重算
x = Application.CountA(Sheets("高级筛选").Range("A5:A65536"))             '筛选结果的A列(A5向下)非空单元数量
For y = 5 To x + 4                '筛选结果的标题行在第4行
AAA = Range("A" & y)           '在A列读取返回的行号
Sheets("数据库").Range("b" & AAA & ":f" & AAA) = Sheets("高级筛选").Range("b" & y & ":f" & y).Value       '更新B:f列(A列不更新，是行号)
Next
Application.Calculation = xlCalculationAutomatic    '自动重算
End Sub

[ 本帖最后由 LangQueS 于 2009-9-8 16:03 编辑 ]

sunahappy · 发表于 2008-1-4 21:31

谢谢版主

zjinling · 发表于 2008-1-6 06:39

太好了，谢谢指教。

ddl123 · 发表于 2008-1-9 08:38

谢谢下载来看看

little-key · 发表于 2008-1-9 16:46

好好学学

safinx · 发表于 2008-1-10 22:18

谢谢~~~

sunxh · 发表于 2008-1-13 20:55

谢谢下载来看看

shakingbarly · 发表于 2008-1-13 22:43

tgx7508 · 发表于 2008-1-15 08:57

谢谢分享!!

hkun_999 · 发表于 2008-3-10 15:54

谢谢！

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