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

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

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

谢谢~~~

谢谢！