vba 宏高级过滤方法无法正常工作

Question

我正在使用 VBA 宏。使用高级过滤器方法我试图将唯一记录复制到其他单元格。它在一个代码和行数更少的模块中运行良好。

但是相同的高级过滤方法在另一张表中不起作用。没有数据被复制，它只是在 Excel 表的左角显示提取。

基本上我使用高级过滤方法将唯一记录从一列复制到另一列

请您帮忙纠正高级过滤选项中的错误。

Set rng = ws.Range("A1:A" & lastrow)

Set rng1 = ws.Range("B1")



rng.AdvancedFilter Action:=xlFilterCopy, copytorange:=rng1, unique:=True



End Sub

Answer 1

您的subroutine 似乎工作正常。能否请您录制一个宏，看看您的sub's LastRow 和确切的column A data Range rowcount 有什么区别

Option Explicit

Sub advFilterCopy()
Dim ws As Worksheet
Dim rng As Range
Dim rng1 As Range
Dim LastRow As Long

   Set ws = Sheets(2)
   ws.Unprotect
   '--use this if you have a password
   '--ws.Unprotect Password:="urpassword"
   LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
   Set rng = ws.Range("A1:A" & LastRow)
   Set rng1 = ws.Range("B1")

   rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=rng1, Unique:=True
   ws.Protect    '--user password if reqiured
End Sub

输出：